通过

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。