Couleur clignotante
Résolu
RIXAIN
Messages postés
7
Date d'inscription
mercredi 7 février 2007
Statut
Membre
Dernière intervention
13 octobre 2008
-
13 juin 2008 à 07:22
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 13 juin 2008 à 07:32
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 13 juin 2008 à 07:32
1 réponse
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
13 juin 2008 à 07:32
13 juin 2008 à 07:32
salut,
' nécessite un label et une timer :
Option Explicit
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500
Label1.BackColor = &HFF&
End Sub
Private Sub Timer1_Timer()
Static iCount As Integer
iCount = iCount + 1
If iCount = 120 Then
Timer1.Enabled = False
Else
Label1.BackColor = IIf(Label1.BackColor = &HFF&, &H80FF&, &HFF&)
End If
End Sub
~
<small>Mortalino ~ [code.aspx?ID=39466 Colorisation
automatique]</small>
@++
le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
' nécessite un label et une timer :
Option Explicit
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500
Label1.BackColor = &HFF&
End Sub
Private Sub Timer1_Timer()
Static iCount As Integer
iCount = iCount + 1
If iCount = 120 Then
Timer1.Enabled = False
Else
Label1.BackColor = IIf(Label1.BackColor = &HFF&, &H80FF&, &HFF&)
End If
End Sub
~
<small>Mortalino ~ [code.aspx?ID=39466 Colorisation
automatique]</small>
@++
le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
