Question

关于VB鼠标移动的问题。（给我代码）

当鼠标移出软件界面时软件界面隐藏。当移到界面内显示界面。怎么办？

Answer 1

'添加Timer控件Timer1,设置Interval属性，最好在100至500之间
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Sub Timer1_Timer()
Dim p As POINTAPI
GetCursorPos p
Me.Visible = p.x * 15 >= Me.Left And p.x * 15 < Me.Left + Me.Width _
And p.y * 15 >= Me.Top And p.y * 15 < Me.Top + Me.Height
End Sub