Problème de débutant

elfingord Messages postés 10 Date d'inscription samedi 18 janvier 2003 Statut Membre Dernière intervention 27 avril 2003 - 21 févr. 2003 à 00:52
elfingord Messages postés 10 Date d'inscription samedi 18 janvier 2003 Statut Membre Dernière intervention 27 avril 2003 - 21 févr. 2003 à 13:23
lu, je veu faire, dans mon application, un label dans lequel aparaissent successivement et dans un interval donné des nombres de 0 à 100. Voilà ce que j'ai écris :
Private Sub Form_Load()

Label2.Caption = "0"

For i = 0 To 100 Step 1
Label2.Caption = Val(i)
Timer1.Enabled = True

Next i

End Sub

le problème est que le nombre 100 s'affiche tout de suite :sad) (le timer est reglé à 50000. pourriez vous m'aider svp?)
Merci d'avance

3 réponses

cs_raff Messages postés 182 Date d'inscription dimanche 18 août 2002 Statut Membre Dernière intervention 5 janvier 2004 3
21 févr. 2003 à 05:43
il faut mettre tout ça dans l'événement timer du timer, et ajuster au moment voulu la propriété Interval ou Enabled tu timer, en gros :

sub Form_Load()
Timer1.Interval = 50000
Timer1.Enabled = true
End sub

Private Sub Timer1_Timer()
dim i as integer

for i = 0 to 100
Label2.Caption = i
next i

End sub
0
cs_raff Messages postés 182 Date d'inscription dimanche 18 août 2002 Statut Membre Dernière intervention 5 janvier 2004 3
21 févr. 2003 à 05:48
NNNNNNNNOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOON
0
elfingord Messages postés 10 Date d'inscription samedi 18 janvier 2003 Statut Membre Dernière intervention 27 avril 2003
21 févr. 2003 à 13:23
merci bcp
0
Rejoignez-nous