Button click

[anaylor01]

I want to run a loop until a button is clicked? How do I do that?

 

[MLDev]

With DoEvents.

Do Until tglSwitch.checked
   ' do something
   DoEvents
Loop

 

[Erel]

It is not recommended to create such loops. Not all events will fire and the app will not be responsive.

You should instead complete the current code execution and continue in Button_Click event.

 

[MLDev]

Hi Erel,

It is not recommended to create such loops. Not all events will fire and the app will not be responsive.

You should instead complete the current code execution and continue in Button_Click event.

I'm working on an app that simulates an old computer. I'm using this code to run machine code on the simulation:

Sub runProg
   Do While tglSwitchRun.checked AND breakPoint = False
      DoEvents
      S0_fetch
      S1_execute
   Loop
   
   ...
   
End Sub

It seems to work fine. How should I do this?

 

[Erel]

I'm not sure what these two method do. However it should be simple to use a timer instead of this loop.