VBasicFacil

Principal - Enlaces - Código - Controles - API

Función FlashWindow

Declaración

Declare Function FlashWindow Lib "user32" Alias "FlashWindow" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

Plataformas

• Windows 95 o superior
  
• Windows NT 3.1 o superior
  

Descripción

Hace parpadear la ventana especificada. Provoca que el título de la ventana pase de activo a inactivo (o viceversa) para llamar la atención del usuario. Normalmente se hace varias veces en lugar de una sola. Cuando haces parpadear la ventana, llama a la función de nuevo, esta vez con bInvert para ponerlo a 0.

Parámetros

hwnd Manejador de la ventana que se va a hacer parpadear un paso.

bInvert Indica que paso del parpadeo se va a hacer. Si se pone 1, la ventana pasa de activo a inactivo (o de inactivo a activo), y si se pone 1, el título de la ventana pasa a su estado normal.

Valor devuelto

La función devuelve 0 si la ventana estaba inactiva antes de la llamada, o distinto de cero si estaba activa.

Ejemplo

Option Explicit


Private Sub Command1_Click()
    Intermitente
End Sub


Private Sub Command2_Click()
    Unload Me
End Sub
		

Option Explicit


Declare Function GetActiveWindow _
		Lib "user32.dll" () As Long
Declare Function FlashWindow Lib "user32.dll" _
       (ByVal hwnd As Long, _
        ByVal bInvert As Long) As Long
Declare Sub Sleep Lib "kernel32.dll" _
       (ByVal dwMilliseconds As Long)

Public Sub Intermitente()
    Dim X As Integer
    Dim hactive As Long ' manejador de la ventana activa
    Dim retval As Long  ' valor de retorno

    hactive = GetActiveWindow()  ' Obtenemos el manejador de la ventana activa
    For X = 1 To 10
        ' Diez parpadeos del título
        retval = FlashWindow(hactive, 1): Sleep 250
        retval = FlashWindow(hactive, 1): Sleep 250
        retval = FlashWindow(hactive, 0)
    Next
End Sub

Aplicaciones:

Ver tambien:

Categoria: Ventanas

Ultima actualización : 3 de diciembre de 2001
Copyright © 2001 Silared, s.l.
correo-e : vbasicfacil@silared.com
Site : www.vbasicfacil.com