Option Explicit
'*********************** 得知鼠标位置的 API *******************************
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
'**********************************************************
Private WithEvents Timer1 As Timer
Dim OldX&, OldY&, MCursor As Boolean
Private Sub Form_Load()
Set Timer1 = Controls.Add("vb.timer", "Timer1")
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
Dim Point As POINTAPI
GetCursorPos Point
MCursor = IIf(Abs(OldX - Point.X) >= 3 Or Abs(OldY - Point.Y) >= 3, True, False)
If MCursor Then
Me.Caption = CStr(Point.X) & " " & CStr(Point.Y) & " 鼠标移动了"
OldX = Point.X: OldY = Point.Y
Else
Me.Caption = CStr(Point.X) & " " & CStr(Point.Y)
End If
End Sub