Ecel VBA编程 滚动条分析和总结.docxVIP

Excel VBA 编程 滚动条 滚动条是放置在窗体的独立控件。它看上去与列表框或组合框的下拉部分中的滚动条类似。然而，与它们不同的是，滚动条控件是独立的，并不是任何其他控件的组成部分。 在 VBA 工具箱中提供一种滚动条。要创建水平或垂直滚动条，将已放置在窗体中的滚动条进行水平或垂直拖动就可以创建水平或垂直的滚动条。 多数情况下，滚动条控件与文本框、列表框等一起使用，通过它可以查看列表选项或数据，还可以进行数值输入。借助最大值和最小值的设置，并配合滚动条中滚动块的位置，就能读取用户指定的数据。 滚动条常用属性 滚动条控件常用的属性如下： Value 属性 在滚动条控件中，滚动块所处的位置可以用数值代表。Value 属性值即为表示滚动块在滚动条中位置的数值。对于水平滚动条，当滚动块处于最左边时，Value 取最小值；而当滚动块处于最顶端时，Value 取最小值。反之，则 Value 的值为最大值。在中间的各个位置， Value 值与位置是按比例来设定的。 Max 属性 用于确定滚动条在滚动块位于最底端(垂直滚动条)或最右边(水平滚动条)时可表现的最大值。该属性可以指定-32768 到 32767 之间的一个整数。缺省值为 32767。 Min 属性 用于确定滚动条在滚动块位于最顶端(垂直滚动条)或最左边(水平滚动条)时可表现的最小值。该属性可以指定-32768 到 32767 之间的一个整数。缺省值为 0。 LargeChange 属性 设定单击滚动条中间的滚动块时，每次增减的数值。 SmallChange 属性 设定单击滚动条中的箭头时，每次增减的数值。 滚动条常用事件 滚动条控件常用的事件主要包含两种，其功能如下： Change 事件 当单击滚动条的箭头或两箭头之间的区域引起Value 属性值变化时而发生的事件。它与Scroll 事件一样都是最常用来实现指定功能的事件。 Scroll 事件 移动滚动块时发生，而单击滚动条中的箭头或滚动条时不发生。例如，使用滚动条来调节数值大小，如图所示。 图 滚动条 Dim i As Integer Dim i As Integer Private Sub UserForm_Initialize() ScrollBar1.Min = 1 ScrollBar1.Min = 1 ScrollBar1.Max = 100 End Sub Private Sub ScrollBar1_Change() Me.Label1.Caption = ScrollBar1.Value - i End Sub Private Sub ScrollBar1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Me.Label1.Caption = ScrollBar1.Value - i End Sub Private Sub ScrollBar1_Scroll() Me.Label1.Caption = ScrollBar1.Value - i End Sub