Scroll 事件
重新定位滚动框时发生该事件。
语法
对于 ScrollBar： Private Sub对象 _Scroll ( )
对于 MultiPage： 专用子对象 _Scroll (indexAs Long、 ActionXAs fmScrollAction、 ActionYAs fmScrollAction、 ByValRequestDxAs Single、 ByValRequestDyAs Single、 ByValActualDxAs MSForms.ReturnSingle、 ByValActualDyAs MSForms.ReturnSingle)
对于 Frame： 专用子对象 _Scroll (ActionXAs fmScrollAction、 ActionYAs fmScrollAction、 ByValRequestDxAs Single、 ByValRequestDyAs Single、 ByValActualDxAs MSForms.ReturnSingle、 ByValActualDyAs MSForms.ReturnSingle)
Scroll 事件语法包含以下部分：
| Part | 说明 |
|---|---|
| object | 必填。 有效的对象名称。 |
| index | 必填。 与此事件关联的 MultiPage 中页面的索引。 |
| ActionX | 必填。 在水平方向上发生的操作。 |
| ActionY | 必填。 在垂直方向上发生的操作。 |
| RequestDx | 必填。 希望滚动条向水平方向移动的距离（以磅为单位）。 |
| RequestDy | 必填。 希望滚动条向垂直方向移动的距离（以磅为单位）。 |
| ActualDx | 必填。 滚动条在水平方向上移动的距离（以磅为单位）。 |
| ActualDy | 必填。 滚动条沿垂直方向移动的距离（以磅为单位）。 |
设置
ActionX 和 ActionY 的设置为：
| 常量 | 值 | Description |
|---|---|---|
| fmScrollActionNoChange | 0 | 未发生变化。 |
| fmScrollActionLineUp | 1 | 垂直滚动条向上移动最短距离；水平滚动条向左移动最短距离。 移动相当于按键盘上的向上键或向左键来移动滚动条。 |
| fmScrollActionLineDown | 2 | 垂直滚动条向下移动最短距离；水平滚动条向右移动最短距离。 移动相当于按键盘上的向下键或向右键来移动滚动条。 |
| fmScrollActionPageUp | 3 | 垂直滚动条向上翻一页；水平滚动条向左翻一页。 移动相当于按键盘上的 Page Up 来移动滚动条。 |
| fmScrollActionPageDown | 4 | 垂直滚动条向下翻一页；水平滚动条向右翻一页。 移动相当于按键盘上的 Page Down 来移动滚动条。 |
| fmScrollActionBegin | 5 | 垂直滚动条的顶部；水平滚动条的左端。 |
| fmScrollActionEnd | 6 | 垂直滚动条的底部；水平滚动条的右端。 |
| fmScrollActionPropertyChange | 8 | ScrollTop 或 ScrollLeft 属性的值发生更改。 移动的方向和距离取决于所更改的属性以及新的属性值。 |
| fmScrollActionControlRequest | 9 | 要求其容器滚动的控件。 移动的距离取决于特定控件和所涉及的容器。 |
| fmScrollActionFocusRequest | 10 | 用户移动到其他控件。 移动距离取决于所选控件的位置，通常具有移动选定控件以使其对用户完全可见的效果。 |
备注
与窗体、 Frame 或 Page 关联的 Scroll 事件返回以下参数： ActionX、 ActionY、 ActualX 和 ActualY。 ActionX 和 ActionY 标识所发生的操作。 ActualX 和 ActualY 标识滚动框实际滚动的距离。
默认操作是计算滚动框的新位置，然后滚动到该位置。
您可以通过对窗体、Frame 或 Page 使用 Scroll 方法来启动 Scroll 事件。 用户可以通过移动滚动框来产生 Scroll 事件。
与独立 ScrollBar 关联的 Scroll 事件指示用户向任一方向移动滚动框。 如果 ScrollBar 的值由代码更改或者由用户单击 ScrollBar 而非滚动框的某些部分而更改时，不会启动此事件。
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。