Comment faire une pose de 10 ms ???

Signaler
Messages postés
10
Date d'inscription
mercredi 18 février 2004
Statut
Membre
Dernière intervention
15 juillet 2004
-
Messages postés
15
Date d'inscription
mercredi 1 avril 2009
Statut
Membre
Dernière intervention
10 avril 2011
-
comment faire une pose de 10 ms ???

Merci
A voir également:

2 réponses

Messages postés
221
Date d'inscription
vendredi 30 novembre 2001
Statut
Membre
Dernière intervention
13 février 2010
4
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sleep 10

VB Lover
Messages postés
15
Date d'inscription
mercredi 1 avril 2009
Statut
Membre
Dernière intervention
10 avril 2011

Private Declare Function GetTickCount Lib "Kerne132" () As Long
Public Sub xWait(ByVal Milsecond As Long)
Dim lngendTime As Long
lngendTime = GetTickCount() + (Milsecond)
Do While GetTickCount() < lngendTime
DoEvents
Loop
End Sub


////mai tu auras un petit blem car tu dois chercher encore le fichier kerne132