ScrollBars-Eigenschaft, KeepScrollBarsVisible-Eigenschaft (Beispiel)

Im folgenden Beispiel werden die Eigenschaften ScrollBars und KeepScrollBarsVisible verwendet, um Bildlaufleisten zu einer Seite eines MultiPage-Elements und einem Frame hinzuzufügen. Der Benutzer wählt eine Optionsschaltfläche aus, die wiederum einen Wert für KeepScrollBarsVisible definiert.

Sie können dieses Beispiel verwenden, indem Sie diesen Beispielcode in den Deklarationsabschnitt eines Formulars kopieren. Stellen Sie sicher, dass das Formular Folgendes enthält:

• Ein MultiPage -Objekt mit der Bezeichnung "MultiPage1".
• Ein Rahmen-Steuerelement ( Frame ) mit der Bezeichnung "Frame1".
• Vier Optionsfeld-Steuerelemente ( OptionButton ) mit der Bezeichnung "OptionButton1" bis "OptionButton4".

Private Sub UserForm_Initialize() 
 MultiPage1.Pages(0).ScrollBars = fmScrollBarsBoth 
 MultiPage1.Pages(0).KeepScrollBarsVisible = fmScrollBarsNone 
 
 Frame1.ScrollBars = fmScrollBarsBoth 
 Frame1.KeepScrollBarsVisible = fmScrollBarsNone 
 
 OptionButton1.Caption = "No scroll bars" 
 OptionButton1.Value = True 
 OptionButton2.Caption = "Horizontal scroll bars" 
 OptionButton3.Caption = "Vertical scroll bars" 
 OptionButton4.Caption = "Both scroll bars" 
End Sub 
 
Private Sub OptionButton1_Click() 
 MultiPage1.Pages(0).KeepScrollBarsVisible = _ 
 fmScrollBarsNone 
 Frame1.KeepScrollBarsVisible = fmScrollBarsNone 
End Sub 
 
Private Sub OptionButton2_Click() 
 MultiPage1.Pages(0).KeepScrollBarsVisible = _ 
 fmScrollBarsHorizontal 
 Frame1.KeepScrollBarsVisible = _ 
 fmScrollBarsHorizontal 
End Sub 
 
Private Sub OptionButton3_Click() 
 MultiPage1.Pages(0).KeepScrollBarsVisible = _ 
 fmScrollBarsVertical 
 Frame1.KeepScrollBarsVisible = _ 
 fmScrollBarsVertical 
End Sub 
 
Private Sub OptionButton4_Click() 
 MultiPage1.Pages(0).KeepScrollBarsVisible = _ 
 fmScrollBarsBoth 
 Frame1.KeepScrollBarsVisible = fmScrollBarsBoth 
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.