Pause a Process

[JTBorton]

I know that I can use DoEvents to allow the user to cancel a process or loop, but is it possible to pause the loop or process dead in its tracks until the user chooses to resume?

For Each itmTag In lvwTagList.ListItems
     DoEvents
     If blnCancel = True Then: GoTo Proc_exit
     [Do Stuff]
Next itmTag

-JTBorton
Well, You can try banging your head against the wall, but you just end up with lost-time injuries and damaged equipment. [M. Passman]

 

[PWise]

insert a message box

Msgbox "This Process Has Been Paused!" & VBcrlf & "Click OK to resume"

 

[traingamer]

Sure - one way is to just pop a message box into the loop:

For Each itmTag In lvwTagList.ListItems
     DoEvents
     If blnCancel = True Then: GoTo Proc_exit
     if blnPause = true then
         if MsgBox("Continue?", vbYesNo, "Continue") = vbYes then
           blnPause = false
         else
           goto proc_exit
         end if
     end if
     [Do Stuff]
Next itmTag

Greg
People demand freedom of speech as a compensation for the freedom of thought which they seldom use. Kierkegaard

 

[JTBorton]

Oh wow, that's simple. Thanks guys.

-JTBorton
Well, You can try banging your head against the wall, but you just end up with lost-time injuries and damaged equipment. [M. Passman]