鲁达 滚动条可以较方便地输入数据或对数据进行微调。
下面以一个“用滚动条设置显示比例”的实例来说明滚动条的使用。
1 新建窗体并插入如下控件：
以上scbZoom滚动条的Max:400，Min:10，Value:100
2 编写调用窗体过程
Sub 显示比例()
End Sub
3 编写窗体代码
Private Sub UserForm_Initialize()
= Ac '文字框显示当前比例
With scbZoom '缩放滚动条的属性
.Min = 10
.Max = 400
.SmallChange = 1
.LargeChange = 10
.Value = Ac
End With
With scbH '水平滚动工作表参数
.Min = 1
.Max = Ac '最大列数
.Value = Ac '当前列
.LargeChange = 10
.SmallChange = 1
End With
With scbV '垂直滚动工作表参数
.Min = 1
.Max = Ac '最大行数
.Value = Ac '当前行
.LargeChange = 10
.SmallChange = 1
End With
End Sub
Private Sub scbZoom_Change()
With ActiveWindow
.Zoom = '用滚动条的值设置当前窗口的缩放
txtZoom = .Zoom '设置文字框的值
.ScrollColumn = '最左边的列号
.ScrollRow = '最顶端的行号
End With
End Sub
Private Sub scbH_Change()
Ac =
End Sub
Private Sub scbV_Change()
Ac =
End Sub
Private Sub cmd100_Click()
= 100
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub txtZoom_AfterUpdate()
=
End Sub
在打开窗体后，即可进行如下操作：
－End－