On veut parfois attirer l'attention sur
une feuille en particulier. Une bonne façon d'y parvenir est
d'en faire clignoter la barre de titre. Il existe une fonction
API de Windows qui peut vous aider à réaliser cette
opération.
- Lancez un nouveau projet que vous
sauvegardez sous le nom Ex_8xx.vbp. Nommez la
feuille Clignotement et inscrivez aussi Clignotement
pour la propriété CAPTION. Ajoutez une seconde
feuille dont le CAPTION est Regarde-moi! et le nom
Regarde.
- Ajoutez une minuterie sur la
feuille 2 (Regarde-moi")" Nommez-la Minu_Un.
- Initialisez la fonction
FlashWindow en ajoutant le code suivant à la feuille
2.
Private Declare Function FlashWindow _
Lib "user32" ( _
ByVal hwnd As Long, _
ByVal bInvert As Long _
) As Long
'Initialisation de la fonction API
- Ajoutez les instructions suivantes
dans la procédure Form_Load.
Private Sub Form_Load()
Minu_Un.Enabled = False
'Désactivation de la minuterie
End Sub
- Poursuivez avec le code suivant
dans la minuterie.
Private Sub Minu_Un_Timer()
Dim V_Départ As Long
'Déclaration de la variable
V_Départ = FlashWindow(hwnd, CLng(True)) 'Initialisation
de la variable
End Sub
- Il faut ensuite programmer les
propriétés Fréquence et Flash comme suit.
Property Let Fréquence(intPerSecond As
Integer)
Minu_Un.Interval = 1000 / intPerSecond
'Formule calculant l'intervalle
End Property
Property Let Flash(blnState As Boolean)
Minu_Un.Enabled = blnState
'Attribution du clignotement
End Property
- Revenez à la première feuille et
ajoutez un bouton que vous nommez BO_Lent.
Écrivez Lent comme CAPTION.
- Ajoutez le code suivant à ce
bouton.
Private Sub BO_Lent_Click()
Regarde.Fréquence = 1
'Initialisation de la fréquence de clignotement
Regarde.Flash = True
'Activation du clignotement
End Sub
- Le travail n'est pas encore
terminé puisque la feuille 2 n'est pas affichée. Il
reste à ajouter le script suivant dans le Form_Load
de la feuille Clignotement.
Private Sub Form_Load()
Regarde.Show
'Affichage de la seconde feuille
End Sub
- Enregistrez ce programme et
testez-le.
Application:
- Ajoutez un second bouton
qui commande une option de clignotement rapide,
c'est-à-dire 10 fois plus vite que la version lente sur
une troisième fenêtre dont le CAPTION est Haute
vitesse. Sauvegardez la nouvelle version sous le nom
Ex_8bxx.vbp.
|
