Trucos Hacer parpadear el caption de una ventana

Es fácil hacer que la barra de título de una ventana parpadee una vez mediante la función del API FlashWindow. Si queremos que parpadee más de una vez o hasta que le mandemos parar usaremos el API FlashWindowEx.

Para ello declararemos en un módulo :

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



Trucos Trucos

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com