在VB中怎么停止mousemove事件呢?

发布网友发布时间：2022-11-16 13:20

我来回答

共2个回答

热心网友时间：2024-01-07 23:47

在mouseup中写相应代码就可以了。

Mouseover鼠标移动

MouseUP 鼠标抬起
mousedown 鼠标按下

热心网友时间：2024-01-07 23:47

什么叫停止mousemove事件？加个判断不就好了么追问判断？怎么个意思？就是说我启动了一个mousemove事件，但是运行几秒后我就想让他停下来，不知道大神可不可以详细说明怎么判断？

追答

if 条件 then‘条件时时间

’响应mousemove事件代码

end if '几秒过后条件不满足就不执行了

顺便一提 timer可以获取系统时间,通过差值就可以实现运行几秒

Dim tick As Double

Private Sub Form_Load()
tick = Timer
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Timer - tick <= 5 Then '运行5秒
'movemouse响应代码
Form1.Caption = Timer - tick
End If
End Sub