|
|
24、ScrollBars：滚动条。设置或获取该属性值，该属性标识UserForm对象是否有垂直、水平滚动条。
Me.ScrollBars = fmScrollBarsNone '值为0(默认值)，不显示滚动条
Me.ScrollBars = fmScrollBarsHorizontal '值为1，显示水平滚动条
Me.ScrollBars = fmScrollBarsVertical '值为2，显示垂直滚动条
Me.ScrollBars = fmScrollBarsBoth '值为3，同时显示水平和垂直滚动条
注意：(1)、如果 KeepScrollBarsVisible属性为True，则窗体或页面上的所有滚动条始终可见，而无论对象的内容是否在对象的边界内；
(2)、如果滚动条可见，滚动条将滚动块限制在滚动条的可见区域中。 滚动条还会根据需要修改滚动位置以使整个滚动条可见。 当ScrollBars属性改变
时，或滚动大小改变时，或可见大小改变时，滚动条范围都将会改变；
(3)、如果滚动条不可见，则可以将其滚动位置设置为任何值。 负值以及大于滚动大小的值都是有效的；
(4)、对于单行控件，您可以通过使用ScrollBars和AutoSize属性显示水平滚动条。 根据以下规则隐藏或显示滚动条：
①、ScrollBars设置为fmScrollBarsNone时，不显示任何滚动条；
②、ScrollBars设置为fmScrollBarsHorizontal或fmScrollBarsBoth时，如果文本长于编辑区域以及如果控件有足够的空间来将滚动条包含在其编辑
区域下方，则控件显示水平滚动条。
③、AutoSize为True时，控件通过扩大自身来适应滚动条的增加，除非控件已是或将达到其最大尺寸。
(5)、对于多行TextBox ，可以通过使用ScrollBars、WordWrap和AutoSize属性显示滚动条。 根据以下规则隐藏或显示滚动条：
①、ScrollBars设置为fmScrollBarsNone时，不显示任何滚动条；
②、ScrollBars设置为fmScrollBarsVertical或fmScrollBarsBoth时，如果文本长于编辑区域以及如果控件有足够的空间来将滚动条包含到其编辑区域
的右边缘，则控件显示垂直滚动条。
③、WordWrap 为 True 时，多行控件将不显示水平滚动条。 大多数多行控件不使用水平滚动条。
④、如果以下情况同时发生，多行控件可以显示水平滚动条：
编辑区包含长度超过编辑区宽度的文字；
控件已启用了水平滚动条；
控件有足够的空间在编辑区下方包含滚动条；
WordWrap 属性设置为 False。
25、ScrollHeight：滚动高度。设置或获取该属性值，该属性标识UserForm对象滚动条查看的总区域的高度，以磅为单位。
Me.ScrollHeight = 0 '值为0(默认值)，不设置总区域的高度
Me.ScrollHeight = 1000 '设置总区域的高度为1000
注意：当UserForm里控件过多默认情况没法全部安放，可以先放大UserForm，全部安放后再缩小。设置ScrollBars、ScrollHeight等属性滚动窗口。
26、ScrollWidth：滚动宽度。设置或获取该属性值，该属性标识UserForm对象滚动条查看的总区域的宽度，以磅为单位。
Me.ScrollWidth = 0 '值为0(默认值)，不设置总区域的宽度
Me.ScrollWidth = 900 '设置总区域的宽度为900
注意：当UserForm里控件过多默认情况没法全部安放，可以先放大UserForm，全部安放后再缩小。设置ScrollBars、ScrollWidth等属性滚动窗口。
27、ScrollLeft：右卷。设置或获取该属性值,该属性标识UserForm对象从逻辑窗体左边缘到可见窗体左边缘的距离(水平滚动条的滑块向右滑动),以磅为单位。
Me.ScrollLeft = 0 '值为0(默认值)，不设置滑动
Me.ScrollLeft = 30 '水平滚动条的滑块向右滑动30
Me.ScrollLeft = Me.Label1.Left '水平滚动条的滑块向右滑动，窗体左边缘与标签左边缘对齐
注意：(1)、最小值取值为零；最大取值是窗体ScrollWidth属性值与Width属性值之间的差值；
(2)、最大值受控件CommandButton影响，当CommandButton控件Left值小于最大值时，ScrollLeft最大值为CommandButton控件Left值；
(3)、如果未设定ScrollWidth值，则ScrollLeft属性无效；
(4)、设置ScrollLeft属性相当于水平滚动条的滑块向右滑动；
(5)、逻辑窗体指整个窗体，包含可见部分和ScrollHeight、ScrollWidth属性指定的不可见部分。
28、ScrollTop：下卷。设置或获取该属性值,该属性标识UserForm对象从逻辑窗体上边缘到可见窗体上边缘的距离(垂直滚动条的滑块向下滑动),以磅为单位。
Me.ScrollTop = 0 '值为0(默认值)，不设置滑动
Me.ScrollTop = 30 '垂直滚动条的滑块向下滑动30
Me.ScrollTop = Me.Label1.Top '垂直滚动条的滑块向下滑动，窗体上边缘与标签上边缘对齐
注意：(1)、最小值取值为零；最大取值是窗体ScrollHeight属性值与Height属性值之间的差值；
(2)、最大值受控件CommandButton影响，当CommandButton控件Top值小于最大值时，ScrollTop最大值为CommandButton控件Top值；
(3)、如果未设定ScrollHeight值，则ScrollTop属性无效；
(4)、设置ScrollTop属性相当于垂直滚动条的滑块向下滑动；
(5)、逻辑窗体指整个窗体，包含可见部分和ScrollHeight、ScrollWidth属性指定的不可见部分。 |
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2024-2-23 16:12
