VB考试教程：颜色函数

1、RGB函数（其中R代表红色、G代表绿色、B代表蓝色）

一般格式：

RGB（数值表达式1,数值表达式2,数值表达式3)

其中，数值表达式1的值是[0，255]之间的整数，表示颜色中红色的部分；数值表达式2的值是[0，255]之间的整数，表示颜色中绿色的部分；数值表达式3的值是[0，255]之间的整数，表示颜色中蓝色的部分。

功能：

由红、绿、蓝这三种颜色的不同比例值调和生成其他的颜色。

下表列出了一些常见的RGB函数颜色效果。

RGB函数 常数 返回值 颜色
RGB（0，0，0） VbBlack &H0 黑色
RGB（255，0，0） VbRed &HFF0 红色
RGB（0，255，0） VbGreen &HFF00 绿色
RGB（0，0，255） VbBlue &HFF0000 蓝色
RGB（0，255，255） VbCyan &HFFFF00 青色
RGB（255，0，255） VbMagenta &HFF00FF 紫红色
RGB（255，255，0） VbYellow &HFFFF 黄色
RGB（255，255，255） VbWhite &HFFFFFF 白色

2、QBColor函数

颜色也可以用QBColor函数来表示。VB中用QBColor（i）代表一种颜色，如下表：

i值 颜色 i值 颜色
0 黑色 8 灰色
1 蓝色 9 亮蓝色
2 绿色 10 亮绿色
3 青色 11 亮青色
4 红色 12 亮红色
5 粉红色 13 亮粉红色
6 黄色 14 亮黄色
7 白色 15 亮白色

如：QBColor（2）代表绿色；QBColor（6）代表黄色。

表示颜色的方法对应的也有几种，如，表示一个背景颜色为黑色：

Form1.BackColor = RGB(0,0.0)

或:

Form1.BackColor = VbBlack

也可以为:

Form1.BackColor = QBColor(0)

例：显示颜色。

界面：添加一个Shape控件、3个TextBox控件、2个标签、两个水平滚动条。

代码：

Private Sub HScroll1_Change()
a = HScroll1.Value
Label4.Caption = a
Text1.BackColor = QBColor(a)
End Sub

Private Sub HScroll2_Change()
a = HScroll2.Value
Label2.Caption = a
Shape1.FillStyle = 0
Shape1.FillColor = QBColor(a)
End Sub