Timer sous VB
fred
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
Bonjour ,
Je souhaiterais savoir comment on utilise un timer sous VB . Dans mon IHM , j 'ai bien rajouté le composant timer et dans mon code je l 'ai bien initialisé à 5 secondes :
Timer1.Interval = 5000
Timer1.Enabled = true .
Maintenant comment doit on faire pour que le suite du programme se déclenche au bout de 5 s , en fait comment on déclenche le timer une fois que les valeurs ont été initailisées .
Merci de votre réponse
Je souhaiterais savoir comment on utilise un timer sous VB . Dans mon IHM , j 'ai bien rajouté le composant timer et dans mon code je l 'ai bien initialisé à 5 secondes :
Timer1.Interval = 5000
Timer1.Enabled = true .
Maintenant comment doit on faire pour que le suite du programme se déclenche au bout de 5 s , en fait comment on déclenche le timer une fois que les valeurs ont été initailisées .
Merci de votre réponse
1 réponse
-
Bonjour,
Un exemple d'utilisation d'un Timer qui affiche l'heure dans un label:
Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Label1.Caption = Time End Sub
Le Timer est initialisé avec un interval de 1000 au lancement de la form, puis est lancé par la procédure Timer1_Timer() avec Timer1.Enabled = True.
Toutes les secondes, l'heure s'affiche dans le Label1. Ce qui permet de voir défiler les secondes.
;o)
-
-
Bonjour,
Sans plus d'explication, difficile de savoir pourquoi. Avec VB6 ça fonctionne.
Pour VB.NET Avec les mêmes contrôles : 1 form, 1 label et un timer :
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Timer1.Interval = 1000 Me.Timer1.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Me.Label1.Text = TimeOfDay End Sub End Class
On obtient le même résultat.
;o)
-
