|
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
[程序演示] [程序下载]
|
