如何设置滚动条vb,如何设置滚动条的内间距?

滚动条可以较方便地输入数据或对数据进行微调。

下面以一个“用滚动条设置显示比例”的实例来说明滚动条的使用。

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－