|
ScrollBar 控件、Scroll 事件示例
项目
04/07/2023
以下示例演示独立 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。
|