ScrollBar 控件、Scroll 事件示例

以下示例演示独立 ScrollBar ，并报告当用户移动滚动框时其值的变化。 用户可以通过单击控件末尾的任一箭头、单击滚动框和箭头之间的区域或拖动滚动框来移动滚动框。 当用户拖动滚动框时， Scroll 事件将显示一条消息，指示用户滚动以获取新值。

若要使用此示例，请将此示例代码复制到窗体的 Declarations 部分。 请确保窗体包含：

• 名为 ScrollBar1 的 ScrollBar 。
• 两个名称分别为"Label1"和"Label2"的 Label 控件。 Label1 包含用户的扩展信息。 Label2 报告了增量值。

Dim ScrollSaved As Integer 
'Previous ScrollBar setting 
 
Private Sub UserForm_Initialize() 
 ScrollBar1.Min = -225 
 ScrollBar1.Max = 289 
 ScrollBar1.Value = 0 
 
 Label1.Caption = "-225 -----Widgets----- 289" 
 Label1.AutoSize = True 
 
 Label2.Caption = "" 
End Sub 
 
Private Sub ScrollBar1_Change() 
 Label2.Caption = " Widget Changes " _ 
 & (ScrollSaved - ScrollBar1.Value) 
End Sub 
 
Private Sub ScrollBar1_Exit(ByVal Cancel as MSForms.ReturnBoolean) 
 Label2.Caption = " Widget Changes " _ 
 & (ScrollSaved - ScrollBar1.Value) 
 ScrollSaved = ScrollBar1.Value 
End Sub 
 
Private Sub ScrollBar1_Scroll() 
 Label2.Caption = (ScrollSaved - ScrollBar1 _ 
 .Value) & " Widget Changes by Scrolling" 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。