VB6.0程序设计教案_4.6

4.6 制作颜色编辑器
一、复习
列表框控件（ListBox）、组合框控件（ComboBox）的常用属性和常用方法及常用事件?
二、本节重点
1、掌握滚动条(HScrollBar、VScrollBar)的常用属性；，
2、掌握滚动条(HScrollBar、VScrollBar)的常用事件。

三、提问：
1、同学们在使用软件时，常见的有哪些软件里有使用滚动条？
目前所使用的Word软件的右侧，也是滚动条。

2、滚动条有作用：
滚动条可以作为输入设备，或者速度、数量的指示器来使用。

例如可以用来控制计算机游戏的音量，或者是查看计时处理中已用的时间等。

导入
上一章讨论了Visual Basic中学习了列表框控件和组合框控件的应用。

本节课我们来通过制作小程序，学习滚动条的常用属性和事件。

四、内容学习
滚动条的属性
常用属性：
1）LargeChange：返回或设置当用户单击滚动条和滚动箭头之间的区域时滚动条控件的Value属性值的改变量。

2）SmallChange：返回或设置当用户单击滚动箭头时滚动条控件的Value 属性值的改变量。

3）Max：返回或设置当滚动框处于顶部或最右位置时，一个滚动条位置的Value属性的最大设置值。

4）Min：返回或设置当滚动框处于处于顶部或最右位置时，一个滚动条位置的Value属性的最小设置值。

5）Value：返回或设置滚动条的当前位置，其返回值始终介于Max和Min 属性值之间，包括这两个值。

使用滚动条作为数量或速度的指示器或者作为输入设备时，可以利用Max
和Min属性设置控件的适当变化范围。

为了制定滚动条内所示的变化量，在单击滚动条要使用LargeChange属性，在单击滚动条两端的箭头时，要使用SmallChange属性。

滚动条的Value属性或递增或递减，增减的量是通过LargeChange和SmallChange属性设置的值。

在运行时，在0与32767之间设置Value属性的值，就可以将滚动框定位。

1、滚动条的常用事件
Change事件是水平滚动条和垂直滚动条的常用事件。

该事件在进行滚动或通过代码改变Value属性的设置时发生。

四、本节任务
编程设计：
在本任务中创建了一个颜色编辑器，通过滚动条或文本框设置红、绿、蓝三基色的比例，以生成所需的颜色值，并用于设置标签的前景颜色。

设计步骤：
1、在Visual Basic集成开发环境中新建一个EXE工程，并把窗体文件和工程文件分别命名并保存。

2、利用属性窗口对窗体Form1的以下属性进行设置。

1）将其Caption属性设置为“颜色编辑器”。

2）将其BorderStyle属性为1-Fixed Dialog。

2、在窗体Form1上添加以下控件。

1）标签lb1Sample，将其Caption属性设置为“心想事成”，BorderStyle
属性设置为1，BackColor属性设置为&H00FFFFFF&。

2）标签lb1Color(0)-lb1Color(2)，将它们的Caption属性分别设置为“红色（&R）：”、“绿色（&G）：”和“蓝色（&B）：”，这些标签构成一个控件数组。

3）在工具箱中单击HscrollBar图标，拖动鼠标在窗体上绘制一个水平滚动条，并命名为hsbColor，将其Min属性设置为0，Max属性设置为255，SmallChange属性设置为1，LargeChange属性设置为10。

4）通过复制控件hsbColor，生成一个控件数组，该数组由hsbColor(0)-hsbColor(2)组成。

5）文本框txtColor(0)-txtColor(1)，将它们的Text属性清空，这些文本框组成了一个控件数组。

4、在窗体Form1的代码窗口中编写以下事件过程。

'通用过程，用于设置标签lblSample的前景颜色
Private Sub setcolor()
lblsample.ForeColor = RGB(hsbcolor(0).Value, hsbcolor(1).Value, hsbcolor(2).Value)
End Sub
'加载窗体时执行以下事件过程
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 2
txtcolor(i) = 1: hsbcolor(i) = 0
Next
setcolor
End Sub
'当滚动条的值发生变化时执行以下事件过程
Private Sub hsbcolor_Change(Index As Integer)
txtcolor(Index).Text = hsbcolor(Index).Value
setcolor
End Sub
'当文本框的内容发生变化时执行以下事件过程
Private Sub txtcolor_Change(Index As Integer)
If CInt(txtcolor(Index).Text) > 255 Then txtcolor(Index).Text = 255
If CInt(txtcolor(Index).Text) < 0 Then txtcolor(Index).Text = 0
hsbcolor(Index).Value = txtcolor(Index).Text
setcolor
End Sub
5、按F5运行程序。

6、拖动滚动条上的滑块或单击滚动条两端的箭头，此时相应的文本框中显示出指定颜色分量的值，由红、绿、蓝三基色合成的颜色自动应用于样本标签。

在文本框中输入指定颜色分量的值，此时相应的滚动条上的滑块将移动到由该值确定的位置上，由红、绿、蓝三基色合成的颜色自动应用于样本标签。

如果在文本框中输入的颜色分量值小于0，则被设置为0；如果在文本框中输入的颜色分量值大于255，则被设置为255。

五、知识链接
1、RGB函数的功能及用法
返回一个Long整数，用来表示一个RGB 颜色值。

语法
RGB(red, green, blue)
RGB函数的语法含有以下这些命名参数：
说明
可以接受颜色说明的应用程序的方法和属性期望这个说明是一个代表 RGB 颜色值的数值。

一个 RGB 颜色值指定红、绿、蓝三原色的相对亮度，生成一个用于显示的特定颜色。

传给 RGB 的任何参数的值，如果超过 255，会被当作 255。

2、CInt函数
3、For-Next 循环控制
格式：
For <循环变量>=<初值> To <终值> [Step <步长>] [循环体]
[Exit For]
Next [循环变量]
图解：。