Delay Function in VB6

[Ali Rizwan]

Hello all,
I want to put delay in my loops as we use in c/c++..
Is there any delay function in vb6 which put delay between any code???

Thanx
>> ALI <<

[jamesd0142]

Hello all,
I want to put delay in my loops as we use in c/c++..
Is there any delay function in vb6 which put delay between any code???

Thanx
>> ALI <<

Try:

system.threadin g.thread.sleep( miliseconds)

[Killer42]

Try:

system.threadin g.thread.sleep( miliseconds)

I wouldn't try that in VB6, you might hurt yourself. :)

You might want to look into API calls such as SleepEx.

As for plain VB, I used to have a simple routine I wrote for jsut this kind of situation. I'll throw together another one now. Note that you would be better off finding a way to call the Windows "put this thread to sleep" function(s). Looping and calling DoEvents from VB causes a bit of an odd situation. It appears to chew up a huge amount of CPU. But since all it's doing is telling Windows repeatedly to "ignore me and go do your own thing" it doesn't (as far as I can tell) slow anything down. In other words, if you hear the CPU fan rev up, or see your CPU monitor suddenly hit 50% or 100%, don't panic. :)

Public Sub SleepFor(ByVal Seconds As Double)
  ' "Sleep" for the specified number of seconds.
  Dim EndTime As Date
  EndTime = DateAdd("s", Seconds, Now)
  Do
    DoEvents
  Loop Until Now >= EndTime
End Sub
 

Note: I wrote this in VB6 IDE just now, so the syntax should be correct. But it hasn't been tested.

to use it, just code

SleepFor 1.5 ' Pause for 1½ seconds.
 

[Ali Rizwan]

Thanx for helping me.
>> ALI <<