Faire une pause d'un certain nombre de secondes

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 512 fois - Téléchargée 71 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
Vraiment merci pour ton code.
Messages postés
4
Date d'inscription
vendredi 16 janvier 2004
Statut
Membre
Dernière intervention
1 avril 2010

OK, mais le xSleep de MR. x n'est pas bloquant (thread parent), parcontre le sleep du Kernel oui.

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

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

Personnelement sleep me genere des exceptions chez moi (visual pro 2005) comme quoi "...::Sleep' a déséquilibré la pile"
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
62
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.