怎么判断鼠标在控件上面停留了2秒
怎么判断,,鼠标在控件上面停留了2秒,然后开始执行我的代码。挪开鼠标后执行新的代码。。。我想做个类似QQ,2011的那种显示提示的框、 --------------------编程问答-------------------- 在控件的mousemove事件中启动定时器,定时器有相关代码。同时检测位置,一旦鼠标位置离开控件,关闭定时器。可结合变量应付复杂的要求。
大概思路就是这样。 --------------------编程问答-------------------- "QQ,2011的那种显示提示的框"没见过 --------------------编程问答-------------------- 一个commandbutton,一个label,一个timer
按钮下放label,label比按钮大一圈
Dim datC As Date
Dim blnA As Boolean
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not blnA Then
datC = Now
blnA = True
Timer1.Enabled = True
End If
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 100
blnA = False
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
blnA = False
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
If DateDiff("s", datC, Now()) > 2 Then
Debug.Print "do"
Timer1.Enabled = False
End If
End Sub
--------------------编程问答--------------------
确实很漂亮的。想自己画一个。。。嘿嘿,你QQ多少,我加你。
补充:VB , 基础类