Faire une pause d'un certain nombre de secondes

4/5 (14 avis)

Snippet vu 11 752 fois - Téléchargée 73 fois

Contenu du snippet

Fait une pause de X secondes sans bloquer les autres applications ou fonctions.

Source / Exemple :


Private Declare Function GetTickCount Lib "kernel32" () As Long

'********************************************************************************************
' Name       : xWait
' Purpose    : Wait for the time requested without
'              stopping the execution of other functions
' Syntax     : xWait(MilsecToWait)
' Parameters : MilsecToWait : Time to wait in millisecond
' Return     : /
'********************************************************************************************
Public Sub xWait(ByVal MilsecToWait As Long)
    Dim lngEndingTime As Long
  
    lngEndingTime = GetTickCount() + (MilsecToWait)
    Do While GetTickCount() < lngEndingTime
        DoEvents
    Loop
End Sub

A voir également

Ajouter un commentaire Commentaires
Utilisateur anonyme
5 avril 2012 à 17:45
Vraiment merci pour ton code.
keversgabriel
Messages postés
4
Date d'inscription
vendredi 16 janvier 2004
Statut
Membre
Dernière intervention
1 avril 2010

17 sept. 2008 à 15:12
OK, mais le xSleep de MR. x n'est pas bloquant (thread parent), parcontre le sleep du Kernel oui.

Gabriel KEVERS
PORTE_BLINDEE
Messages postés
30
Date d'inscription
dimanche 10 décembre 2006
Statut
Membre
Dernière intervention
15 avril 2008

13 juil. 2007 à 19:38
System.Threading.Thread.Sleep(1000) en Dot Net pour infos
PORTE_BLINDEE
Messages postés
30
Date d'inscription
dimanche 10 décembre 2006
Statut
Membre
Dernière intervention
15 avril 2008

13 juil. 2007 à 19:32
Personnelement sleep me genere des exceptions chez moi (visual pro 2005) comme quoi "...::Sleep' a déséquilibré la pile"
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
18 janv. 2007 à 16:35
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)


Sleep 4
Afficher les 14 commentaires

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.