Application.DoEvents()问题

Question

我在我的代码中使用了Application.DoEvents()，这样我就可以按下按钮退出循环，我遇到了一个问题，我必须在屏幕上单击，然后才能按下这个退出按钮，因此需要两次单击。每次我播放时都会发生这种情况，然后尝试停止程序，而不关闭它。我该怎么解决这个问题？

Do While StopProgram = False
    Application.DoEvents()
    RadianAngle = Angle * PlaceHolder
    Me.Refresh()
    If DirectionPositive = False Then
        Angle += 1
        If Angle = 51 Then
            Angle = 49
            DirectionPositive = True
        End If
    ElseIf DirectionPositive = True Then
        Angle -= 1
        If Angle = -51 Then
            Angle = -49
            DirectionPositive = False
        End If
    End If
Loop

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    StopProgram = False
    RunningProgram()
End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    StopProgram = True
End Sub

Answer 1

一个解决办法是:如果您使用MouseDown而不是单击事件，它就可以正常工作。