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

发表于 @ 2008年02月26日 12:43:00|评论(loading...)|编辑