Поделиться через

Пример использования элемента управления ScrollBar и события Scroll

  • Статья

В следующем примере показана автономная полоса прокрутки и сообщается об изменении ее значения при перемещении пользователем поля прокрутки. Пользователь может переместить поле прокрутки, щелкнув стрелку на концах элемента управления, щелкнув область между полем прокрутки и любой стрелкой, либо перетащив поле прокрутки. Когда пользователь перетаскивает поле прокрутки, событие Scroll отображает сообщение о том, что пользователь прокрутился, чтобы получить новое значение.

Чтобы воспользоваться этим примером, скопируйте данный пример кода в раздел описаний формы. Убедитесь, что эта форма содержит:

  • Элемент ScrollBar с именем ScrollBar1.
  • Два элемента управления Label1 и Label2. 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 и обратная связь.