我需要替换布尔变量的值。如果表单正在移动,则 MyVariable 为 False,如果表单未移动,则 MyVariable 为 True。
我已经尝试过了,但是我可以单击应用程序的边框来移动应用程序,然后此代码将无法按预期工作,因为只有在我单击客户区域时才会影响:
Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
Timer_Flag = False
End Sub
Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp
Timer_Flag = True
End Sub
我也尝试过移动事件和位置改变......但我不知道如何检测表单是否正在移动。