Faire une pause d'un certain nombre de secondes

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 432 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

lol !!!
Depuis on a inventé le Sleep(NbMilSec)
Figaro214
Messages postés
1
Date d'inscription
samedi 30 mars 2002
Statut
Membre
Dernière intervention
31 mars 2002
-
D'autant plus génial qu'il supporte le passage à minuit, contrairement aux exemples d'utilisation de "Timer" proposée dans le help de VB.
cs_yannickt
Messages postés
65
Date d'inscription
lundi 25 août 2003
Statut
Membre
Dernière intervention
22 novembre 2011
-
supermomo, la fonction sleep est innexistante en vb6!
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
sleep, inexistente ? allons donc, c'est nouveau, ça !

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
AngeliusMefyrx
Messages postés
52
Date d'inscription
lundi 20 mars 2006
Statut
Membre
Dernière intervention
14 octobre 2007
-
En tout cas, Sleep semble pas exister en VBA 2002

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.