Recherche
Recherche
Les mémos
Je débute...
Visites

 999663 visiteurs

 2 visiteurs en ligne

FAQ
Déplier Fermer  Formulaire
Un objet quelconque (zone de texte, section de formulaire...) dont on souhaite changer la couleur en cycle.

Ici, c'est le fond d'une zone de texte "Horloge".


'Déclaration - au dessus de la première Sub !

Dim iCol As Integer
Const Col1 As Long = 65280
Const Col2 As Long = 8454143
Const Col3 As Long = 16711680

Private Sub Form_Timer()
iCol = iCol + 1
Select Case iCol
Case 1: Me.Horloge.BackColor = Col1
Case 2: Me.Horloge.BackColor = Col2
Case 3: Me.Horloge.BackColor = Col3: iCol = 0
End Select
End Sub


Dernière modification :19/04/2007 : 13:54 Hyperlien