Timer sous VB
Fermé
fred
-
5 mai 2010 à 09:58
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 12 avril 2011 à 20:54
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 12 avril 2011 à 20:54
A voir également:
- Timer sous VB
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Shutdown timer - Télécharger - Personnalisation
- Multi timer - Télécharger - Bureautique
- Task timer - Télécharger - Gestion de projets
1 réponse
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
5 mai 2010 à 10:49
5 mai 2010 à 10:49
Bonjour,
Un exemple d'utilisation d'un Timer qui affiche l'heure dans un label:
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)
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)
12 avril 2011 à 15:39
Je dois etre mauvais mais ca marche pas ton truc.
Merci.
Modifié par Polux31 le 12/04/2011 à 21:00
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 ClassOn obtient le même résultat.
;o)