Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 28 janv. 2008 à 21:55
quelques remarques :
quelle necessité d'avoir un Label (Label1) à masqué ? tu sembles simplement vouloir qu'il stocke une valeur. Déclare une variable dans la partie générale de ta Form.
Dans le Timer1_Timer, maintenant :
'# Euh... si tu joues a bouger l'interval, tu ne va pas garantir 60 secondes...
Timer1.Interval = Timer1.Interval - 1
'# Voir precedemment, le Label1 est inutile.
Label1.Caption = Timer1.Interval
'# Label2.Caption est une chaine de caractère. C'est plus que discutable d'effectuer une soustraction avec une chaine de caractère (non initialisée, surtout)
Label2.Caption = Label2.Caption - 1
'# Ne pas utiliser End, c'est une instruction a proscrire... elle ne permet pas de décharger les controles, boucles, et devierse ressources proprement.
If Label1.Caption = 940 Then End
End Sub
tout cela étant dit, ton code sera rapidement supprimé du serveur. Il n'apporte pas grand chose a grand monde.
28 janv. 2008 à 21:55
quelle necessité d'avoir un Label (Label1) à masqué ? tu sembles simplement vouloir qu'il stocke une valeur. Déclare une variable dans la partie générale de ta Form.
Dans le Timer1_Timer, maintenant :
'# Euh... si tu joues a bouger l'interval, tu ne va pas garantir 60 secondes...
Timer1.Interval = Timer1.Interval - 1
'# Voir precedemment, le Label1 est inutile.
Label1.Caption = Timer1.Interval
'# Label2.Caption est une chaine de caractère. C'est plus que discutable d'effectuer une soustraction avec une chaine de caractère (non initialisée, surtout)
Label2.Caption = Label2.Caption - 1
'# Ne pas utiliser End, c'est une instruction a proscrire... elle ne permet pas de décharger les controles, boucles, et devierse ressources proprement.
If Label1.Caption = 940 Then End
End Sub
tout cela étant dit, ton code sera rapidement supprimé du serveur. Il n'apporte pas grand chose a grand monde.
bonne continuation