Userform et clignotement de label

Le
Didier NOVARIN
Bonjour,
Je souhaite qu'après lancement de mon userform, si une condition est
remplie, la police d'un label clignote, malheureusement, je ne connais pas
la procédure.
J'ai mis cela dans l'initialise du userform, mais cela bloque et ne se voit
pas.
Je vous remercie
Didier

Dim i As Byte
For i = 1 To 3
Sleep 200
Label161.ForeColor = vbBlue
Sleep 200
Label161.ForeColor = vbRed
Sleep 200
Next i
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4496821
Bonjour,


Clignotement Formulaire
Private Sub CommandButton1_Click()
Clignote 6, Me.Label1.Name
End Sub

Sub Clignote(nb, label)
n = 0
Do While n < nb
Me(label).Visible = Not Me(label).Visible
fin = Timer + 0.4
Do While Timer < fin: DoEvents: Loop
n = n + 1
Loop
End Sub

http://boisgontierjacques.free.fr/fichiers/Formulaire/ClignoteForm.xls

Cordialement JB


On 5 mai, 10:03, "Didier NOVARIN"
Bonjour,
Je souhaite qu'après lancement de mon userform, si une condition est
remplie, la police d'un label clignote, malheureusement, je ne connais pas
la procédure.
J'ai mis cela dans l'initialise du userform, mais cela bloque et ne se vo it
pas.
Je vous remercie
Didier

Dim i As Byte
For i = 1 To 3
Sleep 200
Label161.ForeColor = vbBlue
Sleep 200
Label161.ForeColor = vbRed
Sleep 200
Next i


Francois L
Le #4496781
Bonjour,
Je souhaite qu'après lancement de mon userform, si une condition est
remplie, la police d'un label clignote, malheureusement, je ne connais pas
la procédure.
J'ai mis cela dans l'initialise du userform, mais cela bloque et ne se voit
pas.
Je vous remercie
Didier

Dim i As Byte
For i = 1 To 3
Sleep 200
Label161.ForeColor = vbBlue
Sleep 200
Label161.ForeColor = vbRed
Sleep 200
Next i



Bonjour,

Une autre solution que celle de JB à partir des archives du Forum :

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub clign()
Dim i As Byte
For i = 1 To 12
Sleep (50)
DoEvents
UserForm1.Label1.ForeColor = vbBlue
Sleep (50)
DoEvents
UserForm1.Label1.ForeColor = vbRed
Next i
End Sub

--
François L

Didier NOVARIN
Le #4496771
Merci beaucoup
C'est toujours très sympa et efficace
Bonne journée
Didier

"JB"
Bonjour,


Clignotement Formulaire
Private Sub CommandButton1_Click()
Clignote 6, Me.Label1.Name
End Sub

Sub Clignote(nb, label)
n = 0
Do While n < nb
Me(label).Visible = Not Me(label).Visible
fin = Timer + 0.4
Do While Timer < fin: DoEvents: Loop
n = n + 1
Loop
End Sub

http://boisgontierjacques.free.fr/fichiers/Formulaire/ClignoteForm.xls

Cordialement JB


On 5 mai, 10:03, "Didier NOVARIN"
Bonjour,
Je souhaite qu'après lancement de mon userform, si une condition est
remplie, la police d'un label clignote, malheureusement, je ne connais pas
la procédure.
J'ai mis cela dans l'initialise du userform, mais cela bloque et ne se
voit
pas.
Je vous remercie
Didier

Dim i As Byte
For i = 1 To 3
Sleep 200
Label161.ForeColor = vbBlue
Sleep 200
Label161.ForeColor = vbRed
Sleep 200
Next i


Publicité
Poster une réponse
Anonyme