如何使用Visual Basic实现鼠标滚轮滚动并自定义滚动距离（支持窗体外部）

嘿，我明白你要的是在VB里实现窗体外部的鼠标滚轮滚动，还能自定义滚动距离——这确实没法用VB自带的控件方法搞定，得靠Windows API来实现，毕竟你要操作的是系统层面的输入事件，而不是VB自己的窗体控件。

核心思路 #

要模拟外部窗口的滚轮滚动，我们需要使用Windows的SendInput函数（微软已经标记mouse_event为过时，所以优先用SendInput，它更可靠，和真实用户操作的兼容性更好）。这个函数可以直接向系统输入队列注入鼠标事件，不管当前焦点在哪个窗口。

步骤1：声明API和常量（放在标准模块里） #

首先创建一个标准模块（比如Module1.bas），把以下声明放进去，这样整个工程都能调用：

' 输入类型常量
Public Const INPUT_MOUSE As Integer = 0
' 鼠标滚轮事件标志
Public Const MOUSEEVENTF_WHEEL As Integer = &H800

' 定义INPUT结构体，用于传递输入事件
Public Type INPUT
    dwType As Integer
    mi As MOUSEINPUT
End Type

' 定义鼠标输入的结构体
Public Type MOUSEINPUT
    dx As Long
    dy As Long
    mouseData As Long
    dwFlags As Long
    time As Long
    dwExtraInfo As Long
End Type

' 声明SendInput函数（PtrSafe用于64位VB，32位可省略）
Public Declare PtrSafe Function SendInput Lib "user32.dll" (ByVal nInputs As Integer, pInputs As INPUT, ByVal cbSize As Integer) As Integer

步骤2：编写自定义滚动函数 #

在同一个标准模块里，写一个可以调用的滚动函数，参数就是你要自定义的滚动距离：

Public Sub SimulateMouseScroll(ByVal scrollAmount As Long)
    Dim inputStruct As INPUT
    
    ' 设置输入类型为鼠标事件
    inputStruct.dwType = INPUT_MOUSE
    
    ' dx和dy设为0，因为滚轮滚动不需要移动鼠标位置
    inputStruct.mi.dx = 0
    inputStruct.mi.dy = 0
    
    ' mouseData是滚动距离：正数=向上滚动，负数=向下滚动
    ' 系统默认每120单位对应一次标准滚动（比如网页滚动一行/一段）
    ' 你可以自定义这个数值，比如60=半次，240=两次
    inputStruct.mi.mouseData = scrollAmount
    
    ' 标记事件为滚轮滚动
    inputStruct.mi.dwFlags = MOUSEEVENTF_WHEEL
    
    inputStruct.mi.time = 0
    inputStruct.mi.dwExtraInfo = 0
    
    ' 发送输入事件到系统
    Call SendInput(1, inputStruct, Len(inputStruct))
End Sub

步骤3：调用函数实现滚动 #

现在你可以在窗体的任意事件里调用这个函数了，比如按钮点击：

Private Sub btnScrollUp_Click()
    ' 向上滚动240单位（相当于两次默认滚动）
    SimulateMouseScroll 240
End Sub

Private Sub btnScrollDown_Click()
    ' 向下滚动60单位（半次默认滚动）
    SimulateMouseScroll -60
End Sub

额外提示 #

• 这个操作是针对当前鼠标位置所在的窗口生效的，如果你需要滚动特定窗口，可以先结合你已经掌握的鼠标移动操作，把鼠标移到目标窗口的区域，再调用滚动函数。
• 如果你用的是32位VB，记得去掉声明里的PtrSafe关键字，避免编译错误。
• 滚动单位的数值可以完全自定义，比如你想滚动非常小的距离，就用10、20这样的数值，系统会按比例处理。

内容的提问来源于stack exchange，提问作者Stefan