[RESOLVED] [EXCEL] UserForms: Interrupt an Event by another one

[RaytracerFFM]

Hi guys,

really could use some help!

Trying to keep this simple:

I have a simple UserForm with 2 buttons. The run button sets a global variable to true and starts a loop, the cancel button just sets the global variable to false which is tested inside the loop.

Option Explicit

Dim blState As Boolean

Private Sub CommandButton_Cancel_Click()

    blState = False

End Sub

Private Sub CommandButton_Run_Click()
    Dim i As Integer
    
    i = 0
    blState = True
    
    While blState = True And i < 10000
        Debug.Print i
        i = i + 1
    Wend

End Sub

Problem is: As soon as the loop is entered, the UserForm will react to nothing.

Maybe this is the normal behavior, but I need a way to stop the loop if the user decides to cancel out.

Any ideas? That would be great!!!!

I'm attaching the Workbook.

cheers,
ray

[Siddharth Rout]

Option Explicit

Dim blState As Boolean

Private Sub CommandButton_Cancel_Click()
    blState = False
End Sub

Private Sub CommandButton_Run_Click()
    Dim i As Integer
    
    i = 0
    blState = True
    
    While blState = True And i < 10000
        DoEvents '<~~ Add this to your code
        i = i + 1
    Wend
End Sub

[RaytracerFFM]

Something things are sooo simple, but you just don't see them

I new i could rely on you koolsid

Thanx a million.... again

cheers,
ray