Faire clignoter une forme

Commenter

Contenu du snippet

ben, copier le code dans un projet avec une forme contenant deux label et un timer.

Source / Exemple : 


Private Sub Form_Load()

Form1.BackColor = vbBlack
Label1.BackColor = vbBlack
label2.BackColor = vbBlack
Label1.ForeColor = vbRed
label2.ForeColor = vbRed
Timer1.Enabled = True

end sub

Private Sub Timer1_Timer()
If Form1.BackColor = vbBlack Then
Form1.BackColor = vbRed
Label1.BackColor = vbRed
label2.BackColor = vbRed
Label1.ForeColor = vbBlack
label2.ForeColor = vbBlack

ElseIf Form1.BackColor = vbRed Then
Form1.BackColor = vbBlack
Label1.BackColor = vbBlack
label2.BackColor = vbBlack
Label1.ForeColor = vbRed
label2.ForeColor = vbRed

Else ' au cas ou ça marche pas
Form1.BackColor = vbBlack
Label1.BackColor = vbBlack
label2.BackColor = vbBlack
Label1.ForeColor = vbRed
label2.ForeColor = vbRed
End If

End Sub

Conclusion :


on aurait pu utilser l'instruction switch, mais l'envie ne m'en a pas pris ...

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (retaks666)