Stopping loops

[starcraft]

How do i stop a loop in button1_click with button2_click?

[Ariez]

When you have a loop in a sub, your application is not responsive when its executing unless you use multithreading.

[Volte]

If he is using Application.DoEvents it will.

 

You can do this:

Private keeplooping As Boolean = True

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 Do While keeplooping
   Application.DoEvents()
   'other stuff
 Loop
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
 keeplooping = False
End If

That'll turn off the boolean variable which will cause the loop to stop after its next iteration (it will not break out of the middle of the loop).

[Ariez]

I've seen it used just to refresh breefly enough to repaint the form and loose it again to process.

[starcraft]

thanks guys that helps alot