將捲軸新增至頁面和框架
下列範例會使用 ScrollBars 和 KeepScrollBarsVisible 屬性,將捲軸新增至 MultiPage 的頁面和 Frame。 使用者選擇為 KeepScrollBarsVisible 指定值的選項按鈕。
若要使用本範例,請將此範例程式碼複製到表單的指令碼編輯器中。 若要執行該程式碼,您需要開啟該表單以啟動 Open 事件。 請確定表單包含:
一個名為 MultiPage1 的 MultiPage 。
一個名為 Frame1 的 Frame 。
四個名稱分別為 OptionButton1 到 OptionButton4 的 OptionButton 控制項。
Sub Item_Open()
Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1")
Set Frame1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Frame1")
Set OptionButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton1")
Set OptionButton2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton2")
Set OptionButton3 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton3")
Set OptionButton4 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton4")
MultiPage1.Pages(0).ScrollBars = 3 '3=fmScrollBarsBoth
MultiPage1.Pages(0).KeepScrollBarsVisible = 0 '0=fmScrollBarsNone
Frame1.ScrollBars = 3 '3=fmScrollBarsBoth
Frame1.KeepScrollBarsVisible = 0 '0=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
Sub OptionButton1_Click()
Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1")
Set Frame1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Frame1")
MultiPage1.Pages(0).KeepScrollBarsVisible = 0 '0=fmScrollBarsNone
Frame1.KeepScrollBarsVisible = 0 '0=fmScrollBarsNonefmScrollBarsNone
End Sub
Sub OptionButton2_Click()
Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1")
Set Frame1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Frame1")
MultiPage1.Pages(0).KeepScrollBarsVisible = 1 '1=fmScrollBarsHorizontal
Frame1.KeepScrollBarsVisible = 1 '1=fmScrollBarsHorizontal
End Sub
Sub OptionButton3_Click()
Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1")
Set Frame1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Frame1")
MultiPage1.Pages(0).KeepScrollBarsVisible = 2 '2=fmScrollBarsVertical
Frame1.KeepScrollBarsVisible = 2 '2=fmScrollBarsVertical
End Sub
Sub OptionButton4_Click()
Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1")
Set Frame1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Frame1")
MultiPage1.Pages(0).KeepScrollBarsVisible = 3 '3=fmScrollBarsBoth
Frame1.KeepScrollBarsVisible = 3 '3=fmScrollBarsBoth
End Sub
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。
意見反應
https://aka.ms/ContentUserFeedback。
即將登場:在 2024 年,我們將逐步淘汰 GitHub 問題作為內容的意見反應機制,並將它取代為新的意見反應系統。 如需詳細資訊,請參閱:提交並檢視相關的意見反應