1. 滚动条的用途
为不能自动支持滚动的应用程序和控件提供滚动功能，也可作为数据输入的工具。
水平滚动条 (HScrollBar) 和垂直滚动条 (VScrollBar)
2. 常用属性
(1) Min 、 Max 属性：最小值 Min 属性的默认值为 0 ，最大值 Max 属性的默认值为 32767 。
(2) Value 属性：表示滚动块在滚动条中的位置值
移动滚动块时，代表的值随之改变
(3) SmallChange 属性：最小变动值
(4) LargeChange 属性：最大变动值
3. 事件
滚动条控件可以识别 10 个事件，其中最常用的是 Scroll 和 Change 事件
(1)Scroll 事件：当用鼠标拖动滚动块时，即触发 Scroll 事件
(2)Change 事件：当改变 Value 属性值时，即触发 Change 事件
当释放滚动块、单击滚动条内空白处或滚动箭头时， Change 事件就会发生。
例 10.2 设计一个调色板应用程序
建立三个水平滚动条作为红、绿、蓝三种基本颜色的输入工具，合成的颜色显示在右边的标签中 ( 图 10.3) ，用其背景颜色属性 BackColor 值的改变实现合成颜色的调色
Label1.BackColor = RGB(R, G, B)
说明：根据调色原理，基本颜色有红、绿、蓝三种，选择这三种颜色的不同比例，可以合成所需要的任意颜色
(1) 创建应用程序的用户界面和设置对象属性
三个水平滚动条名称从上至下分别为 HScroll1 、 HScroll2 、 HScroll3
其 Max 属性均设置为 255 ， Min 属性均设置为 0 ，
SmallChange 属性设置为 1 ， LargeChange 属性设置为 10 ， Value 设置为 0 。
显示合成颜色的标签名为 Label1
(2) 编写程序代码
功能要求：通过操作 ( 单击或拖动 ) 滚动条，直接修改 RGB 设置，从而得到标签背景所需的颜色
Private Sub HScroll1_Change()
Label1.BackColor = RGB(HScroll1.Value, _
HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll2_Change()
Label1.BackColor = RGB(HScroll1.Value, _
HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll3_Change()
Label1.BackColor = RGB(HScroll1.Value, _
HScroll2.Value, HScroll3.Value)
End Sub |
第十章
