共用方式為

ScrollBar 控制項、Scroll 事件範例

  • 發行項

下列範例示範獨立 ScrollBar ，並在使用者移動捲動方塊時報告其值的變更。 使用者可以按一下控制項結尾的任一箭頭、按一下捲動方塊和箭號之間的區域，或拖曳捲動方塊，來移動捲動方塊。 當使用者拖曳捲動方塊時， Scroll 事件會顯示訊息，指出使用者已捲動以取得新值。

若要使用本範例，請將此範例程式碼複製到表單的宣告部分中。 請確定該表單包含：

  • 一個名為 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 支援與意見反應。