VBA实现窗体控件鼠标滚动

lhl-RT · 发表于 2021-10-18 18:00:03

在VBA中，对于窗体控件，如文本框、列表框、组合框、复选框等，无法实现鼠标控制滚动，也就是说：在这些控件上，无法用鼠标滚轮让控件中的内容上下、左右滚动。
国外一个高手Cristian Buse编写了VBA UserForm MouseScroll程序，实现了这些功能，该项目可实现13种窗体控件的鼠标滚动。
# VBA UserForm MouseScroll

鼠标滚动是一个 VBA 项目，它允许鼠标滚轮在 MS Forms 控件和用户窗体上滚动，但也可以扩展为单击、双击和移动输入。
## 安装

只需在您的 VBA 项目中导入以下 2 个代码模块：

* **MouseScroll.bas**
* **MouseOverControl.cls**

## 用法
在你的模态用户窗体中使用：
```vba
HookMouseToForm Me
```
例如，可以使用窗体的初始化事件：
```vba
Private Sub UserForm_Initialize()
Me.StartUpPosition = 0
Me.Left = Application.Left + Application.Width / 2 - Me.Width / 2
Me.Top = Application.Top + Application.Height / 2 - Me.Height / 2

HookMouseToForm Me
End Sub
```

## 注意
* 按住 Shift 进行水平滚动，按住 Ctrl 进行缩放
* Mouse Hook 不适用于非模态窗体（仅限模态窗体）
* 无需调用 Unhook 方法。当窗体处于非活动状态时会自动调用
* 如果您调用第二个模态窗体，请确保在完成后勾回第一个：
```vba
Private Sub ShowSecondForm_Click()
SecondForm.Show vbModal
MouseScroll.HookMouseToForm Me
End Sub
```