Private Sub Timer1_Timer()
variable = variable + 1
If variable = 2 _
Then Form1.Caption "C'est ici que ça se passe!": variable 0 _
Else: Form1.Caption = ""
End Sub
Private Sub Timer1_Timer()
variable = variable + 1
If variable = 2 _
Then Form1.Caption "C'est ici que ça se passe!": variable 0 _
Else: Form1.Caption = ""
End Sub
Voilà mon humble contribution! encore un source qui prouve que la prog n'est pas toujours utile...
Si vs avez des suggestions,c'est volontier, et je demande votre indulgence pour un misérable débutant.
17 juil. 2001 à 20:38
16 juil. 2001 à 19:44
a condition ke au départ le caption soir égal a
"C'est ici ke ca ce passe"
ou
""
16 juil. 2001 à 19:41
Private Sub Timer1_timer()
If Me.Caption "" Then Me.Caption "C'est ici ke ca ce passe" Else Me.Caption = ""
End Sub
;)
@+
fabs
16 juil. 2001 à 17:59
16 juil. 2001 à 17:49
16 juil. 2001 à 17:49
variable = variable + 1
If variable = 2 _
Then Form1.Caption "C'est ici que ça se passe!": variable 0 _
Else: Form1.Caption = ""
End Sub
Private Sub Timer1_Timer()
variable = variable + 1
If variable = 2 _
Then Form1.Caption "C'est ici que ça se passe!": variable 0 _
Else: Form1.Caption = ""
End Sub
et toc :p
Muad
16 juil. 2001 à 17:34
16 juil. 2001 à 17:31
Si vs avez des suggestions,c'est volontier, et je demande votre indulgence pour un misérable débutant.