2014-12-07 · 知道合伙人软件行家
yfcp
知道合伙人软件行家
采纳数：1748
获赞数：5545
有多年网站建设相关工作经验。熟悉ASP、ASP.net、VB、JavaScript、HTML等语言和CSS、Ajax等相关技术。
向TA提问 私信TA
关注
![]()
展开全部
在mouseup中写相应代码就可以了。
Mouseover鼠标移动
MouseUP 鼠标抬起
mousedown 鼠标按下
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
什么叫停止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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
