共用方式為

ScrollHeight、ScrollLeft、ScrollTop、ScrollWidth 屬性範例

  • 發行項

下列範例會使用 MultiPage 的頁面作為捲動區域。 使用者可以使用 MultiPage 之 Page2 上的捲軸來存取最初未顯示的部分頁面。

若要使用本範例，請將此範例程式碼複製到表單的宣告部分中。 請確定表單包含名為 MultiPage1 的 MultiPage ，而且 MultiPage 的每個頁面都包含一或多個控制項。

注意事項

MultiPage的每個頁面都是唯一的。 Page1 沒有捲軸。 Page2 具有水準和垂直捲動條。

Private Sub UserForm_Initialize() 
 MultiPage1.Pages(1).ScrollBars = fmScrollBarsBoth 
 MultiPage1.Pages(1).KeepScrollBarsVisible = _ 
 fmScrollBarsNone 
 
 MultiPage1.Pages(1).ScrollHeight = 2 * _ 
 MultiPage1.Height 
 MultiPage1.Pages(1).ScrollWidth = 2 * _ 
 MultiPage1.Width 
 
 'Set ScrollHeight, ScrollWidth before setting 
 'ScrollLeft, ScrollTop 
 MultiPage1.Pages(1).ScrollLeft = _ 
 MultiPage1.Width / 2 
 MultiPage1.Pages(1).ScrollTop = _ 
 MultiPage1.Height / 2 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。