Parpadeo en barra de herramientas

Hola!!

Buscando en la web consegui como usar la funcion FLASHWINDOWS del api de
windows para manejar el parpadeo del boton de la aplicación en la barra de
tareas, pero mi problema es que el ejemplo que posteo aqui está en VB y
usa una variable estructurada "TYPE" y no consigo como traducir el uso de
esta API a Visual Fox.
Si alguno sabe o tiene algúna otra forma de lograr el parpadeo, le
agradecería la ayuda.

MUCHA GRACIAS

EJEMPLO FLASHWINDOWS (visual basic)

Public Type FLASHWINFO
cbSize As Long 'tamaño de la estructura
hWnd As Long 'handle de la ventana que debe parpadear
dwFlags As Long 'opciones
uCount As Long 'número de parpadeos
dwTimeOut As Long 'tiempo entre los parpadeos en milisegundos, si es
cero será el del parpadeo del cursor
End Type

Public Declare Function FlashWindowEx Lib "user32" (pFWI As FLASHWINFO) As
Boolean

'Las opiones pueden ser
Public Const FLASHW_STOP = 0 'deja de parpadear
Public Const FLASHW_CAPTION = 1 'parpadea el título
Public Const FLASHW_TRAY = 2 'parpadea el botón de la barra de tareas
Public Const FLASHW_ALL = FLASHW_CAPTION Or FLASHW_TRAY 'parpadean los dos
Public Const FLASHW_TIMER = 4 'parpadea hasta que le mandemos parar
Public Const FLASHW_TIMERNOFG = 12 'parpadea hasta que se active la
ventana


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Hola!!

Buscando en la web consegui como usar la funcion FLASHWINDOWS del api de
windows para manejar el parpadeo del boton de la aplicación en la barra de
tareas, pero mi problema es que el ejemplo que posteo aqui está en VB y
usa una variable estructurada "TYPE" y no consigo como traducir el uso de
esta API a Visual Fox.
Si alguno sabe o tiene algúna otra forma de lograr el parpadeo, le
agradecería la ayuda.

MUCHA GRACIAS

EJEMPLO FLASHWINDOWS (visual basic)

Public Type FLASHWINFO
cbSize As Long 'tamaño de la estructura
hWnd As Long 'handle de la ventana que debe parpadear
dwFlags As Long 'opciones
uCount As Long 'número de parpadeos
dwTimeOut As Long 'tiempo entre los parpadeos en milisegundos, si es
cero será el del parpadeo del cursor
End Type

Public Declare Function FlashWindowEx Lib "user32" (pFWI As FLASHWINFO) As
Boolean

'Las opiones pueden ser
Public Const FLASHW_STOP = 0 'deja de parpadear
Public Const FLASHW_CAPTION = 1 'parpadea el título
Public Const FLASHW_TRAY = 2 'parpadea el botón de la barra de tareas
Public Const FLASHW_ALL = FLASHW_CAPTION Or FLASHW_TRAY 'parpadean los dos
Public Const FLASHW_TIMER = 4 'parpadea hasta que le mandemos parar
Public Const FLASHW_TIMERNOFG = 12 'parpadea hasta que se active la
ventana


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway