ScrollBars、KeepScrollBarsVisible プロパティの例

次の例では、 ScrollBars プロパティと KeepScrollBarsVisible プロパティを使用して、 MultiPage のページと Frame にスクロール バーを追加します。 ユーザーがオプション ボタンを選択すると、 KeepScrollBarsVisible の値が指定されます。

この例を使用するには、このサンプル コードをフォームの Declarations 部分にコピーします。 フォームに次のものが含まれていることを確認してください。

• マルチ ページ ( MultiPage ) コントロール (MultiPage1)
• フレーム ( Frame ) コントロール (Frame1)
• OptionButton1 から OptionButton4 まで命名された 4 つの OptionButton コントロール

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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。