VB考试教程:颜色函数
文章作者 100test 发表时间 2007:03:10 18:33:59
来源 100Test.Com百考试题网
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
[程序演示] [程序下载]