Un text clignotant
Résolu
pascallac
Messages postés
35
Date d'inscription
dimanche 7 septembre 2003
Statut
Membre
Dernière intervention
12 mai 2005
-
10 mai 2005 à 19:00
pascallac Messages postés 35 Date d'inscription dimanche 7 septembre 2003 Statut Membre Dernière intervention 12 mai 2005 - 11 mai 2005 à 07:20
pascallac Messages postés 35 Date d'inscription dimanche 7 septembre 2003 Statut Membre Dernière intervention 12 mai 2005 - 11 mai 2005 à 07:20
4 réponses
cs_casy
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
40
10 mai 2005 à 19:05
10 mai 2005 à 19:05
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.
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.
cs_casy
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
40
10 mai 2005 à 19:06
10 mai 2005 à 19:06
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.
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.
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
10 mai 2005 à 19:36
10 mai 2005 à 19:36
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
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
pascallac
Messages postés
35
Date d'inscription
dimanche 7 septembre 2003
Statut
Membre
Dernière intervention
12 mai 2005
11 mai 2005 à 07:20
11 mai 2005 à 07:20
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
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