vb6 is their a code for pause , while its pausing other task should run as normal.

[gennna21]

i had a code like this cant find it.

pause 1 or

pause 5 and while its paused to test it let a label count up or down this way you know the pause execution is running and the counter is going up or down.
this way u can work beter.


normal pause codes while it executes when u drag form it stops the count down or other stuff when u let go off mouse the pause resumes

[DataMiser]

You can pause a timer.

Not sure what you are really trying to ask.

[gennna21]

add a pause code

add 1 timer = 1000
in timer add label1.caption =label1.caption +1


on button click
timer1.enable=true

button 2 click
pause 5
msgbox "blaa"

after you click button one , click button 2 and se if the labels still count or hang till the pause is finished.
what we want is the timer to count on regardless even if other code is executing

[Elroy]

I've got no idea if this is what you're talking about ...

Public Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Calling that will "pause" your entire program for the specified time, while letting everything else in Windows to keep executing. Just understand that nothing in your particular program will execute for the specified "Sleep" time.

EDIT1: You use it by just saying something like Sleep 5000 to sleep for 5 seconds.

EDIT2: In technical terms, Windows will "Sleep" your program's thread for the specified amount of time.

EDIT3: The only other thing I could think of is something like the following...

Public Sub Pause(Seconds As Long)
    Dim start As Single
    start = Timer
    Do
        If Abs(Timer - start) > Seconds Then Exit Sub
        DoEvents
    Loop
End Sub

DoEvents is highly discouraged, but that's the only way you're going to get a pause that lets other aspects of your program to run while doing the pause. Also, I did the Abs() to handle the case where the pause eclipses midnight.

[ChrisE]

Hi,

this is more or less what Elroy posted, except I use the date

you will need a Timer and a Label

Option Explicit

Private NextCheck As Date
Private CheckIntervall As Long
Private Sub Form_Load()
      NextCheck = Now
      CheckIntervall = 5
      CheckIntervall = 25
      Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer()
   Dim s As String, s1 As String, s2 As String
      DoEvents
      s2 = "Log: next Check in "
      If NextCheck > Now Then
         s = Format(NextCheck - Now, "nn:ss")
         If s <> s1 Then
            Label1.Caption = s2 & s
         End If
         s1 = s
         Exit Sub
      End If
      Timer1.Enabled = False
      Label1.Caption = "Check läuft ..."
MsgBox "times up!"
      'your action here
      NextCheck = DateAdd("s", CheckIntervall, Now)
      Timer1.Enabled = True
End Sub

regards
Chris

[DataMiser]

IMO if you need to insert a pause that will allow other code to execute and wait before the current code continues then it is a matter of poor program flow and the best solution is to redesign the way your program works.

[Elroy]

Truth be told, I wholeheartedly agree with DataMiser. Unless it's some kind of game, where you want a pause for some kind of effect, I see little reason for a pause. It's typically just a waste of time.

However, there is one other place I use a pause in my main application. It's where I'm quasi-automating another third-party application. There's no "true" automation ability, so I have to do it the "hard way". I automate it through an API version of SendKeys. However, it's sometimes a bit slow in responding to the keystrokes, so I put small pauses (sleeps) in my code, giving it time to process. I'll admit that it's a bit of a kluge to do this, and that I should possibly monitor (i.e., spy) on the other program to see if it has responded before sending the next keystrokes. However, it's been working for years, and I see no compelling reason to change it.

I also suspect this may be why gennna21, is doing it. With all of her posts, they've yet to outline what they're doing, other than it has something to do with internet exploring. It wouldn't surprise me at all if they're up to something nefarious. However, it doesn't appear that they have the skills or knowledge to really do much damage.

Best Regards to All,
Elroy