Question

vb.net怎么让鼠标不动三秒之后隐藏控件？

我先在模块前声明Dim HideTime As Single，然后在窗体的MouseMove事件中让控件显示，在定时器中HideTime+=1，当大于等于3时隐藏控件，所以就是鼠标在窗体上移动时显示控件，鼠标不动或移出窗体三秒后隐藏控件。可问题来了，即使鼠标悬停在窗体上，也会触发窗体的MouseMove事件，所以控件会隐藏后又立刻显示，这可怎么办啊，我看那些一般的音乐视频软件都能做到，怎么办呢？

Answer 1

用timer就行，Timer触发间隔3000，触发了就隐藏控件，并停止Timer。
然后是MouseMove事件，当x或y的移动量大于一个值（假设为10）时，才显示控件，并重新计时。
windows可能会有些错误消息，或者鼠标自己也会有些错误信号，这些都可能导致触发MouseMove事件，所以需要指定移动量大于某一最小值时，才做处理。

Answer 2

我测试可以用， 你试下，以下代码要隐藏的控件是button1，从button1上第一次移到窗体上会无效，鼠标停留在button1上无效
Private xy As Point
Private data As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub
Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
Dim back As Point = Me.PointToClient(Control.MousePosition)
If xy = back Then Timer1.Enabled = True : Exit Sub
Button1.Visible = True
xy = back
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
data = data + 1
If data = 3 Then Button1.Visible = False : Timer1.Enabled = False : data = 0
End Sub

Answer 3

在MouseMove事件中加一句：
HideTime=0