Exit 2 sub

Hello
In my program, 2 subs are executing at the same time: the actions and a progress bar on a different form. I added a cancel button below my progress bar and I want to exit both subs when i click on it. How can I do?

Thanks

Althought not the best use End

Althought not the best use End

sure works but I want the program to stay open....

You could use a global Boolean variable that you set to True if the user clicks the cancel button. You'll need to check the state of the Boolean variable in both subs (especially if you're looping), and Exit Sub if the variable has been set to True.

You could use a global Boolean variable that you set to True if the user clicks the cancel button. You'll need to check the state of the Boolean variable in both subs (especially if you're looping), and Exit Sub if the variable has been set to True.

Yeah but all my operation are very long so the state of the boolean variable has to be check before or after...not while...and that's what I want....

What do you mean by "my operations are very long"? Are you doing some mathematical calculations? I don't see how you're going to interrupt processing except for with a global Boolean.

What do you mean by "my operations are very long"? Are you doing some mathematical calculations? I don't see how you're going to interrupt processing except for with a global Boolean.

That's some mathematical calculation...long simulations. ...

If you're using loops in the routines, you should be able to check the global Boolean on every pass. If you're not using loops, then I don't think there's any way to force the mathematical processing to stop without using the End statement (which I would NEVER recommend).

If you're using loops in the routines, you should be able to check the global Boolean on every pass. If you're not using loops, then I don't think there's any way to force the mathematical processing to stop without using the End statement (which I would NEVER recommend).

Ok. I'll try that

Thanks

VB6 does not generate multi-threading executables, so 2 subs can't actually execute at once ... ;)

You might think timers are asynchronous, but they are not - if one of your subs is in a loop, and you have a timer running as well, then the timer will only get a lookin if the looping sub makes a DoEvents call ...

So, whatever mechanism is being used to update the progress, it's just a matter of telling it when to stop, e.g. when progress = max just unload the progress display form ....

VB6 does not generate multi-threading executables, so 2 subs can't actually execute at once ...

Ok, that's what I was thinking... (I was trying to figure out how to run two subs at once and thought my brain was going to melt....)

So I figure the last suggestion made by MathImagics there makes the most sense.

As always you can step through your code using F8 and see where an 'Exit Sub' needs to occur.

Another possibility would be to create an error handler up above where both of your subs are called and generate a user-defined error (using Err.Raise) when the Cancel button is clicked. You'd just have to watch out if the subs have their own error handlers, they would need to be modified to pass the user-defined error up the calling stack by raising it again.

add DoEvents into your loop


Dim flagStop As Boolean

Private Sub Process()
flagStop = False
Do while ...
'Your processing code
DoEvents
If flagStop = True Then Exit Do
Loop
End Sub

Private Sub cmdStop_Click()
flagStop = True
End Sub