4/5 (14 avis)
Snippet vu 11 752 fois - Téléchargée 73 fois
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
5 avril 2012 à 17:45
17 sept. 2008 à 15:12
Gabriel KEVERS
13 juil. 2007 à 19:38
13 juil. 2007 à 19:32
18 janv. 2007 à 16:35
Sleep 4
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.