在框架中使用滚动条

2016年8月10日 作者： 来源：

如果需要在窗体中显示较多的内容，比如使用标签显示一段很长的文本内容，而又不希望窗体很大的话，可以在窗体中使用框架放置标签，设置框架可滚动区域的高度，使标签可以进行上下移动以查看全部区域。
在VBE窗口中单击菜单“插入”→“用户窗体”，在窗体中添加一个框架控件，在框架中添加一个标签控件。根据需要显示的内容调整好标签的大小，再将框架和窗体调整为合适的大小。
在VBE中双击窗体，写入下面的代码。
#001  Private Sub UserForm_Initialize()
#002      Dim sLab As String
#003      sLab = Space(4) & "欢迎来到vba技术论坛，全球最领先的Excel技术论坛之一。" & vbLf _
#004          & Space(4) & "在这里，我们讨论Microsoft Office系列产品的应用技术，重点讨论Microsoft Excel。本论坛从属于深圳万博这一Excel技术门户，目前是个人、非营利性质的网站学习平台。各行各业的Excel使用者都活跃在此，各种形式的学习资源也汇聚于在此，所以，只要您愿意花时间，并使用正确的方法，我们有理由相信您的绝大部分应用问题和学习愿望都在这里被满足。无数已经取得了非凡进步的人，也可以证明这一点。" & vbLf _
#005          & Space(4) & "Let’s do it better!这是我们的口号，我们的宗旨是帮助大家解决在使用Office软件中的问题，提升自己的应用技能。" & vbLf _
#006          & Space(4) & "鉴于许多人在此之前没有正确使用网络学习资源的经验，我们特别准备了这样一篇文章，送给每一位有志与我们一起成长的朋友。"
#007      Label1.Caption = sLab
#008      With Frame1
#009          .ScrollBars = 2
#010          .ScrollHeight = Label1.Height
#011      End With
#012  End Sub
代码解析：
窗体的初始化事件，在窗体加载时使用标签显示文本内容。
第3行到第6行代码，变量sLab为要显示的文本，使用Space函数在每段的首字前插入4个空格，使首字缩进。在需要换行的地方插入常数vbLf进行换行。
第9行代码，设置框架的ScrollBars属性为显示垂直滚动条。ScrollBars属性指定一个控件、窗体或页面是否有垂直或水平滚动条，或两者都有，语法如下：
object.ScrollBars [= fmScrollBars]
参数object是必需的，一个有效的对象。
参数fmScrollBars是可选的，滚动条的显示位置，设置值如表格 122 1所示。
常量 值 说明
fmScrollBarsNone 0 不显示滚动条（默认）。
fmScrollBarsHorizontal 1 显示水平滚动条。
fmScrollBarsVertical 2 显示垂直滚动条。
fmScrollBarsBoth 3 垂直和水平滚动条都显示。
表格 122 1 ScrollBars属性设置值
第10行代码，设置框架的ScrollHeight属性为标签的高度。ScrollHeight属性指定通过移动控件、窗体或页面中的滚动条，可以查看的全部区域的高度，语法如下：
object.ScrollHeight [= Single]
参数object是必需的，一个有效的对象。
参数Single是可选的，可滚动区域的高度。
如果框架具有水平滚动条，可以设置框架的ScrollWidth属性来设置可以查看的全部区域的宽度。
运行窗体，使用标签显示文本内容，可通过框架的滚动条查看全部内容。