Utiliser le timer comme reference [Résolu]
nourhanan
- Messages postés
- 26
- Date d'inscription
- samedi 16 décembre 2000
- Dernière intervention
- 21 novembre 2009
- Messages postés
- 26
- Date d'inscription
- samedi 16 décembre 2000
- Dernière intervention
- 21 novembre 2009
A voir également:
- Utiliser le timer comme reference
- Comment utiliser un timer - Codes sources - Visual Basic / VB.NET (Divers)
- Utiliser un timer dans une form ✓ - Forum - VB.NET
- Utiliser un timer dans le code dans évenement clavier ✓ - Forum - VB.NET
- Utiliser un Timer en mode console ✓ - Forum - Delphi / Pascal
- Utilisation du timer ✓ - Forum - IRC
7 réponses
Meilleure réponse
- Messages postés
- 26
- Date d'inscription
- samedi 16 décembre 2000
- Dernière intervention
- 21 novembre 2009
Bonjour
Bravo et merci à PCPT mon probleme est resolu grace à vous .
Bravo et merci à PCPT mon probleme est resolu grace à vous .
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
115 internautes nous ont dit merci ce mois-ci
- Messages postés
- 14010
- Date d'inscription
- samedi 29 décembre 2001
- Dernière intervention
- 28 août 2015
Salut
En VB6, il n'est pas possible (difficile) d'ajouter des composants s'ils n'ont pas au moins un exemplaire sur la forme.
Il te faut donc placer graphiquement l'objet Timer (qu'on appellera monTimer) sur ta forme.
Si tu as besoin de plusieurs de ces objets en mode Run, il te suffit de l'indexer (mettre son Index à 0), puis, dans le code, de faire un
Load monTimer(1)
Pour info, un Timer réglé à 1000 mSec ne garantit pas la précision.
Le déclenchement peut être retardé selon la charge de la machine.
Si tu as besoin de précision, il te faut t'orienter vers des APIs qui rechercheront l'heure exacte du système, basé sur la fréquence du CPU
Il y a plusieurs exemples parmi les codes VB6 sur le site (cherche "timer précision" dans la Recherche)
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
En VB6, il n'est pas possible (difficile) d'ajouter des composants s'ils n'ont pas au moins un exemplaire sur la forme.
Il te faut donc placer graphiquement l'objet Timer (qu'on appellera monTimer) sur ta forme.
Si tu as besoin de plusieurs de ces objets en mode Run, il te suffit de l'indexer (mettre son Index à 0), puis, dans le code, de faire un
Load monTimer(1)
Pour info, un Timer réglé à 1000 mSec ne garantit pas la précision.
Le déclenchement peut être retardé selon la charge de la machine.
Si tu as besoin de précision, il te faut t'orienter vers des APIs qui rechercheront l'heure exacte du système, basé sur la fréquence du CPU
Il y a plusieurs exemples parmi les codes VB6 sur le site (cherche "timer précision" dans la Recherche)
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
- Messages postés
- 13368
- Date d'inscription
- lundi 13 décembre 2004
- Dernière intervention
- 3 février 2018
salut
,
[../auteur/KEVINORY/183467.aspx Kevin.Ory]
-> bien tenté mais non, çà ne marche pas comme çà en VB6 ^^
(pour le coup on aurait même un message d'erreur, impossible de mettre NEW avec WITHEVENTS, justement parce qu'on doit avoir un contrôle "existant" pour recevoir (puis re-transmettre) ses évènements
ici si la demande est de ne pas poser de contrôle en mode édition, il faut tout de même le faire par code, pas le choix
çà donnerait :
Option Explicit
Dim WithEvents
t
As
Timer
'déclaration évènements
'
'
Private Sub
Form_Load()
Set t = Me.Controls.Add("VB.Timer", "t") 'création timer
t.Enabled = True
t.Interval = 1000
End Sub
Private Sub Form_Unload(Cancel As Integer)
t.Enabled = False
Set t = Nothing
End Sub
'
Private Sub t_Timer()
Static i As Long
i = i + 1
Text1.Text = CStr(i)
End Sub
<small>
[../code.aspx?ID=39466 Coloration VB6, VBA,
VBS]
</small>
mais pour être honnête, l'intérêt sur une form est rarement (jamais?) existant....
++
<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
,
[../auteur/KEVINORY/183467.aspx Kevin.Ory]
-> bien tenté mais non, çà ne marche pas comme çà en VB6 ^^
(pour le coup on aurait même un message d'erreur, impossible de mettre NEW avec WITHEVENTS, justement parce qu'on doit avoir un contrôle "existant" pour recevoir (puis re-transmettre) ses évènements
ici si la demande est de ne pas poser de contrôle en mode édition, il faut tout de même le faire par code, pas le choix
çà donnerait :
Option Explicit
Dim WithEvents
t
As
Timer
'déclaration évènements
'
'
Private Sub
Form_Load()
Set t = Me.Controls.Add("VB.Timer", "t") 'création timer
t.Enabled = True
t.Interval = 1000
End Sub
Private Sub Form_Unload(Cancel As Integer)
t.Enabled = False
Set t = Nothing
End Sub
'
Private Sub t_Timer()
Static i As Long
i = i + 1
Text1.Text = CStr(i)
End Sub
<small>
[../code.aspx?ID=39466 Coloration VB6, VBA,
VBS]
</small>
mais pour être honnête, l'intérêt sur une form est rarement (jamais?) existant....
++
<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
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.