Description :
En mettant cette fonction à l'intérieur d'une boucle vous pourrez produire un effet de clignotement sur la barre de titre d'une fenêtre, ou à défaut sur son icône si celle-ci est réduite.
bInvert doit être mis à 'Vrai' pour que le clignotement fonctionne, à 'Faux' pour redonner à la fenêtre son apparence initiale.
La valeur renvoyée correspond à l'état de la fenêtre avant l'appel à la fonction.

Exemple d'utilisation :

'(Exemple de Alain Quinet - alain.quinet@free.fr)

' Dans un module, vous définissez les déclarations
' et vous tapez la fonction qui suit :
Private Declare Function FlashWindow Lib "user32" ( _
                 ByVal hWnd As Long, _
                 ByVal bInvert As Long) As Long

Private Compteur As Byte

' Sur une feuille, vous placez un controle timer (Timer1)
' et vous déclarez une variable Compteur (type Byte)

' Dans l'évènement Timer du contrôle timer,
' vous tapez le code suivant :
Private Sub Timer1_Timer()
' Ce code fait clignoter la barre de titre 10 fois
If (Compteur < 10) Then
    Compteur = Compteur + 1
    Call FlashWindow(Me.hWnd, 1)
Else
    Call FlashWindow(Me.hWnd, 0)
End If
End Sub



' (Autre exemple de Raphaël Aubin - b_blinck@hotmail.com)

' ...
' Mise en place du clignotement de la fenêtre courante
FlashWindow Me.hwnd, 1
' ...

Retour à la liste des API