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 支持和反馈,获取有关如何接收支持和提供反馈的指南。
反馈
https://aka.ms/ContentUserFeedback。
即将发布:在整个 2024 年,我们将逐步淘汰作为内容反馈机制的“GitHub 问题”,并将其取代为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈