4/5 (8 avis)
Snippet vu 13 022 fois - Téléchargée 81 fois
Private Sub Form_Load() End Sub Private Sub Timer1_Timer() Label1.Tag = Label1.Tag + 10 If Label1.Tag > 255 Then Timer1.Enabled = False: Timer2.Enabled = True Label1.ForeColor = RGB(0, 0, Label1.Tag) End Sub Private Sub Timer2_Timer() Label1.Tag = Label1.Tag - 10 If Label1.Tag < 1 Then Timer2.Enabled = False: Timer1.Enabled = True Label1.ForeColor = RGB(0, 0, Label1.Tag) End Sub
2 août 2002 à 14:42
bon prog...
26 juil. 2001 à 03:52
En fait il faut mettre la propriete "tag" du label (label1) a 0 et regler les proprietes "interval" des 2 timer a 10 par exemple...
Popok
10 juil. 2001 à 13:25
5 juil. 2001 à 11:11
ET y a pas de zip !!!
6 juin 2001 à 10:59
objet.tag est du type string
Alors label1.tag+10 !!!!
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.