VBasicFacil: GetActiveWindow

Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long

Devuelve el manejador a la ventana activa del programa que llama a la función. Solo funciona con ventanas creadas por tu propia aplicación; en otras palabras, no puede encontrar ventanas activas de otros programas. Si el programa corre en background, la función obtendrá la ventana que estaría activa si hubiera una activa. Si ocurre un error, o si la ventana del programa no esta activa, la función devolverá 0.

Si la función finaliza correctamente, el valor devuelto es el manejador de la ventana activa asociada con el hilo que llama a la función. Si el hilo que llama no tiene una ventana activa, la función delvolverá un nulo.

Vamos a hacer parpadear la barra de título diez veces con una frecuencia de 4 parpadeos por segundo

Formulario (Contiene dos CommandButton)

Option Explicit


Private Sub Command1_Click()
    Intermitente
End Sub


Private Sub Command2_Click()
    Unload Me
End Sub

Modulo

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 handle de la ventana activa
    For X = 1 To 10
        ' Diez parpadeos del titulo
        retval = FlashWindow(hactive, 1): Sleep 250
        retval = FlashWindow(hactive, 1): Sleep 250
        retval = FlashWindow(hactive, 0)
    Next
End Sub

Descargar código : GetActiveWindow.zip

Función GetActiveWindow

VB.NET