检测鼠标是否在使用_检测桌面鼠标是否移动代码-优快云博客

本文提供了一段用于检测鼠标是否在移动的VB代码实现。通过定时器定期获取鼠标的坐标，并与上一次记录的位置进行对比，以此判断鼠标是否处于活动状态。如果发现鼠标位置发生变化，则在文本框中显示“鼠标滚动”，并设置背景为红色；若鼠标未移动，则显示“鼠标静止”，背景设为绿色。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

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