est il possible de la faire clignotée

[Petchy]

Bonjour le Forum,

dans unUSF j'ai mis un label,et dans se label j'ai mis une image (une fleche),est il possible de la faire clignotée quand j'appui sur un bouton pour faire apparaitre se label.

Petchy

 

[michel]

bonsoir Petchy

tu peux tester l'exemple joint pour faire clignoter une fleche dans un UserForm


bonne soirée
MichelXld

 

[michel]

oouuppsss

toutes mes excuses ...je me suis trompé de classeur ....


bonne soiree
MichelXld

 

[Petchy]

bonsoir Michel


ta démo,je vais pouvoir l'exploité (enfin j'espere)
Merci

 

[Lord Nelson]

Salut Petchy et Michel,

Michel a été plus rapide, néanmoins voici une suggestion basée sur la propriété Visible de ton Label :

(Tout ce code concerne le UserForm avec un bouton bascule et un Label)

Public Clignotant As Boolean

Sub Clignoter()
Dim T1 As Single
Do
DoEvents
If Clignotant = False Then
Label1.Visible = True
Exit Do
End If
Label1.Visible = Not Label1.Visible
T1 = Timer
Do
Loop While Timer >= T1 And Timer < T1 + 0.1
Loop
End Sub

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Clignotant = True
Clignoter
Else
Clignotant = False
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If Clignotant = True Then
Clignotant = False
End If

A+
Horatio

 

[Petchy]

bonsoir Horatio ou Lord Nelson

merci pour ton code je vais essayé
@ plus
Petchy

 

[Petchy]

Bonjour le Forum,

j'ai repris la démo de Michel,est ce possible d'arrété le clignotement de la fléche du label1 quand on appui sur le second bouton et vice-versa

 

[Petchy]

Re

oups, je voulais dire le commandebutton3 sans passer par le bouton stop

merci