ScrollHeight、ScrollLeft、ScrollTop 和 ScrollWidth 属性示例

下例把多页控件的一页用作滚动区。用户可用多页控件的 Page2 上的滚动条来访问该页的最初未显示部分。

窗体包含：

• 名为 MultiPage1 的多页控件，并且多页控件的每页都包含一个或多个控件。

注意：多页控件的每页都是唯一的。Page1 没有滚动条。Page2 有水平和垂直的滚动条。

Sub UserForm_Initialize()
    UserForm_MultiPage1.Pages(1).ScrollBars = 3
    UserForm_MultiPage1.Pages(1).KeepScrollBarsVisible = 0
    
    UserForm_MultiPage1.Pages(1).ScrollHeight = 2 * UserForm_MultiPage1.Height
    UserForm_MultiPage1.Pages(1).ScrollWidth = 2 * UserForm_MultiPage1.Width

    '在设置 ScrollLeft 和 ScrollTop 之前设置 
     'ScrollHeight 和 SrollWidth
    UserForm_MultiPage1.Pages(1).ScrollLeft = UserForm_MultiPage1.Width / 2
    UserForm_MultiPage1.Pages(1).ScrollTop = UserForm_MultiPage1.Height / 2
End Sub