Un text clignotant [Résolu]

Signaler
Messages postés
35
Date d'inscription
dimanche 7 septembre 2003
Statut
Membre
Dernière intervention
12 mai 2005
-
Messages postés
35
Date d'inscription
dimanche 7 septembre 2003
Statut
Membre
Dernière intervention
12 mai 2005
-
j'ai reussi a faire clignoter mon label
avec ce code

Private Sub Timer2_Timer()

If Res2.Visible = True Then
Res2.Visible = False
Else
Res2.Visible = True
End If


End Sub

mais je voudrais faire clignoter que le texte ou la valeur du label (Res2)
e
merci


cordialement
pascal

4 réponses

Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
37
Private Sub Timer2_Timer()

If Res2.Visible = True Then
Res2.Forecolor = Res2.Backcolor
Else
Res2.Forecolor = vbBlack ' met ici ta couleur habituelle d'écriture
End If



End Sub


Pas garantie mais je dois pas etre très loin




<hr size="2" width="100%">Si le cerveau était assez simple pour que nous puissions le comprendre,

nous serions assez bête pour ne pas le comprendre malgré tout.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
37
Oups j'ai oublier, à modifier aussi



If Res2.Forecolor = vbBlack Then
'ou ta couleur habituelle




<hr size="2" width="100%">Si le cerveau était assez simple pour que nous puissions le comprendre,

nous serions assez bête pour ne pas le comprendre malgré tout.
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
25
Bonsoir,

Private Sub Command1_Click()
Timer1_Timer
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 100
If Res2.Caption = "Bonjour" Then
Res2.Caption = ""
Else
Res2.Caption = "Bonjour"
End If
End Sub

jpleroisse
Messages postés
35
Date d'inscription
dimanche 7 septembre 2003
Statut
Membre
Dernière intervention
12 mai 2005

merci casy

ca fontionne impec voici le code finale

Private Sub Timer2_Timer()


If Res2.ForeColor = vbBlack Then
Res2.ForeColor = Res2.BackColor
Else
Res2.ForeColor = vbBlack ' met ici ta couleur habituelle d'écriture
End If


End Sub

jpleroisse vous aussi ca fonctionne mais ce n'est pas syncro il clignote moins bien


cordialement
pascal