Freigeben über

ScrollBar-Steuerelement, Scroll-Ereignis (Beispiel)

  • Artikel

Im folgenden Beispiel wird die eigenständige Bildlaufleiste veranschaulicht und die Änderung des Werts gemeldet, wenn der Benutzer das Bildlauffeld verschiebt. Der Benutzer kann das Bildlauffeld verschieben, indem er auf einen der Pfeile an den Enden des Steuerelements klickt, indem er in den Bereich zwischen dem Bildlauffeld und dem Pfeil klickt oder das Bildlauffeld zieht. Wenn der Benutzer das Bildlauffeld zieht, zeigt das Scroll-Ereignis eine Meldung an, die angibt, dass der Benutzer einen Bildlauf ausgeführt hat, um den neuen Wert abzurufen.

Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Stellen Sie sicher, dass das Formular Folgendes enthält:

  • Eine ScrollBar namens "ScrollBar1".
  • Zwei Bezeichnungsfeld-Steuerelemente ( Label ) mit der Bezeichnung "Label1" und "Label2". Label1 enthält Skalierungsinformationen für den Benutzer. Label2 meldet den Deltawert.
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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.