Cancel button help

[Refl3ct]

Well, this is similar to my other thread. Anyways, I want to have a "stop" or "cancel" button, that immediately stops the loop where it is. Not when it finishes.

Here is my current code:

Private Sub start_Click()
stopp = True
 
Do Until stopp = False
If stopp = False Then
Exit Do
End If
DoEvents
 
 
EventPause ("5")
SendKeys ("message")
EventPause ("1")
SendKeys ("message1")
EventPause ("1")
SendKeys ("message2")
EventPause ("1")
SendKeys ("message3")
EventPause ("1")
SendKeys ("message4")
EventPause ("1")
SendKeys ("message5")
EventPause ("1")
SendKeys ("message6")
EventPause ("1")
SendKeys ("message7")
EventPause ("1")
SendKeys ("message8")
EventPause ("1")
SendKeys ("message9")
EventPause ("1")
SendKeys ("message10")
EventPause ("1")
SendKeys ("message11")
EventPause ("1")
DoEvents
Loop
 
End Sub
 
'Cancel button
Private Sub Command1_Click()
stopp = False
End Sub

However, this only stops the loop once it is completed and back to the start. Maybe I am using DoEvents wrong? Could somone please modify my code so the split second the "stop" button is pushed the loop stops?

Again: it stops fine, but only once the loop is completed. I want to stop mid-loop the second the stop button is pushed.

Thanks!

[westconn1]

if you put your stopp test between every line it will stop befor the next

Private Sub start_Click()
stopp = True
 
Do Until stopp = False
If stopp = False Then Exit Do
 
DoEvents
 
 
EventPause ("5")
If stopp = False Then Exit Do
SendKeys ("message")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message1")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message2")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message3")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message4")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message5")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message6")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message7")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message8")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message9")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message10")
EventPause ("1")
If stopp = False Then Exit Do
SendKeys ("message11")
EventPause ("1")
If stopp = False Then Exit Do
DoEvents
Loop
 
End Sub

rgds pete

[Refl3ct]

What if one of my SendKeys were say 1,000 charectors+ and it took a fair bit of time, and I wanted to stop mid-way through the send keys?

If possible I want to be able to stop the EXACT second without it processing anything further... possible?

Isn't there like a "Kill" all active processes in the program, so it stops everything and just returns to idle?

[westconn1]

if you want to stop in the middle of prossesing a single instruction, there maybe a way to do it useing an api call

the only other way is to end your program, which is not a good way to do anything and other members here will say don't do that, otherwise it has to finish each instruction before it can process the next, exit loop


p.

[Refl3ct]

Any idea what the API call is?

[westconn1]

sorry can't help with that, only said there maybe an api

the only way i can think of to make it work would be to put it in a timer, so that it is looping separatly to the loop you are processing

p.

[dglienna]

You would want Sendmessage. Find it here

http://www.mentalis.org/apilist/SendMessage.shtml


EDIT: I thought that this might help you.

You could have a generic subroutine that sends your values a character at a time, all the while checking for the STOP flag.