WAIT() function?

[myspacee]

Hello,
i must wait 5 seconds between an operation and another,
but can't find wait() function or similar...

Can someone help me?

A.

 

[Andrew Fergus]

Hello

In your code, add this declaration at the top of you code (below the 'Option' statements but before the first 'Sub'):

Private Declare Sub Sleep Lib "kernel32" _
    (ByVal dwMilliseconds As Long)

Then to activate a pause in your code of 5 seconds, use this:

Sleep 5000

The 'sleep' time is expressed in milliseconds hence a 5 second pause is shown as 5000 milliseconds.

HTH, Andrew

 

[myspacee]

Thank you for reply.

here my 2 solution:

- a temporized msgbox
(usage : msgboxtimed("hello world!")
-----------8<---------------------------------------------------------------------------------------------
Private Sub msgboxtimed(my_text As String)
Const wshYes = 6
Const wshNo = 7
Const wshYesNoDialog = 4
Const wshQuestionMark = 32

Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

intReturn = objShell.PopUp(my_text, 3, "Temporized message : 3 sec.")

End Sub
----------->8-----------------------------------------------------------------------




- a while cicle
(usage : call waitforme )

----------->8-----------------------------------------------------------------------
Private Sub waitforme()
pausainsecondi = 5
Dim DelayEnd As Double
DelayEnd = DateAdd("s", pausainsecondi, Now)
While DateDiff("s", Now, DelayEnd) > 0
Wend
End Sub
-----------8<---------------------------------------------------------------------------------------------


Thank you all !

A.