clignoter un message

[rainbow69006]

Bonjour a tous

Est il possible de faire clignoter un message sur un user form?

merci

 

[roro69]

Re : clignoter un message

Bonsoir
Met dans ton usf un cmd et 1 Label et essaye ce code bonne soirée

Private Sub CommandButton1_Click()
Dim a As String
a = Timer
Do
Do Until a + 0.5 <= Timer
DoEvents
Loop
If Label1.Visible = True Then Label1.Visible = False Else Label1.Visible = True
a = Timer
Loop
End Sub
//////////////////////////////////////////////////////////////////////////////////////////////////
Et un autre code celui ci pour le défilement de texte/
Private Sub Command2_Click()
'defilement
Dim a As String
a = Timer
Do
Do Until a + 0.5 <= Timer
DoEvents
Loop
Label2.Caption = Mid(Label2.Caption, 2, Len(Label2.Caption) - 1) & Left(Label2.Caption, 1)
a = Timer
Loop
End Sub

 

[rainbow69006]

Re : clignoter un message

Merci de ta reponse.

Est ce qu'il est possible de faire:
- que ce ne soit pas le texte qui clignote mais qu'en fait le texte soit normal puis en gras, puis normal, puis en gras (que ce soit le gras qui clignote en fait)
- que le clignotement ce fasse des l'ouverture de l'userform jusqua sa fermeture

Merci

Ps: super l'idee du defilement mais chez moi sa ne marche pas (voir fichier)

 

[roro69]

Re : clignoter un message

Rebonsoir
Pour que le clignotement se fasse à l'ouverture de l'usf met ce code:
Private Sub UserForm_Activate()
Dim a As String
a = Timer
Do
Do Until a + 0.5 <= Timer
DoEvents
Loop
If Label1.Visible = True Then Label1.Visible = False Else Label1.Visible = True
a = Timer
Loop
End Sub
POur passer en gras il faut mettre la propriété font de ton label sur gras ;ou alors ajouter dans le code:Label1.Font.Bold=True
A ++
PS😛Our le défilement çà marche normalement

 

[rainbow69006]

Re : clignoter un message

Merci beaucoup!!!🙂

 

[roro69]

Re : clignoter un message

Re
Tiens voilà un petit fichier avec un clignotement un peu amélioré.