打印本文 
关闭窗口 Visual Basic提供了两个选择颜色函数QBColor和RGB，其中QBColor函数能够选择16种颜色，RGB函数能够选择更多的颜色。
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
[程序演示] [程序下载]
打印本文 关闭窗口