检测鼠标是否在使用

以下提供一套简单检测鼠标是否在使用的源码

Option Explicit
Private Type PointAPI
      X As Long
      Y As Long
End Type
Dim MousePos As PointAPI
Private Declare Function GetCursorPos Lib "user32" _
                          (lpPoint As PointAPI) As Long
Dim OldX As Long
Dim OldY As Long
Dim NewX As Long
Dim NewY As Long
Dim UnitValue As Long
Dim UnitName As String
Dim FormatStr As String
Private X0 As Long
Private Y0 As Long
Const FormatStr1 = "000000.00"
Const FormatStr2 = "0000.0000"

---

 

Private Sub Form_Load()
      UnitValue = 1440
      UnitName = "英寸"
      FormatStr = FormatStr1
      Timer1.Enabled = True
      GetCursorPos MousePos
      OldX = MousePos.X * Screen.TwipsPerPixelX
      OldY = MousePos.Y * Screen.TwipsPerPixelY
End Sub

---

 

Private Sub Timer1_Timer()
      GetCursorPos MousePos
      NewX = MousePos.X * Screen.TwipsPerPixelX
      NewY = MousePos.Y * Screen.TwipsPerPixelY
      X0 = NewX - OldX
      Y0 = NewY - OldY
      If X0 <> 0 Or Y0 <> 0 Then
            Text1 = "鼠标滚动"
            Text1.BackColor = vbRed
      Else
            Text1 = "鼠标静止"
            Text1.BackColor = vbGreen
      End If
      OldX = NewX
      OldY = NewY
End Sub