[RESOLVED] do until event

[Kanbei]

hi. is there a way to make something stop when an event is raised.

this is my case.
i have a line of code the MouseDown event. i want it to go on a loop until the mousemove entent starts (until the user moves the mouse).

so i have 2 questions:
1) How can i do this?
2) Apart from this case, just to know: Is there a way to make a loop stop when an event raises like "loop until label1_click" or something like that?

Thanks

[bushmobile]

here is a thread about loop cancelling: http://www.vbforums.com/showthread.php?t=387163

it should give you an idea

[pnish]

You could try something like this using a flag:

Option Explicit
 
Private MouseMove As Boolean
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
    Do Until MouseMove = True
        '
        '   do whatever, may need to through a DoEvents statement in too
        '
        DoEvents
    Loop
    
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
    MouseMove = True
    
End Sub

[jcis]

Nice Pnish, I just added MouseMove = False at the beggining of Form_MouseDown event, is this a valid correction for your code?

[Kanbei]

thanks a lot pnish your code will work for sure
and thanks bushmobile ill read that topic now.
also thanks jcis for the correction

[pnish]

Nice Pnish, I just added MouseMove = False at the beggining of Form_MouseDown event, is this a valid correction for your code?

Oops, my bad. Definitely a good idea