Program Hangs

[007MCSE]

I've got a Program running an endless Loop With a do while events.

Private Sub Timer1_Timer()
Static Temp As Integer
Temp = Temp + 1
Do While DoEvents()
If Temp Mod 2 = 0 Then Exit Do
Loop
End Sub

When the program is running, if you move the form with the mouse. The program locks up.
I know its because of the Do While Do Events.

But how do I stop this happening?

 

[JohnYingling]

I do not believe you will get another Timer event until you exit the current one. Usually you get DoEvents = 0 so you break out of the Do/Loop. If, however, there are pending MouseMove events and Temp Mod 2 = 1 then you will never break out of the Do/Loop because another Timer event can not occur. step through in debug mode.

Try
Debug.Assert Not( DoEvents > 0 and Temp mod 2 = 1)
to stop when the loop should occur and see if you ever re-enter the Timer event.

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript