VB考试教程：颜色函数

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常量返回值color
RGB (0，0，0 0) VbBlack &H0黑
RGB (255，0，0 0) VbRed &HFF0红
RGB (0，255，0 0) VbGreen &HFF00绿
255) VbBlue &HFF0000蓝
RGB (0，255，255 255 255)VB cyan & hff 00青色

2.QBColor函数

颜色也可以用QBColor函数来表示。在VB中，QBColor(i)代表一种颜色，如下表所示:

我重视颜色我重视颜色
0黑色8灰色
1蓝色9亮蓝色
2绿色10亮绿色
3青色11亮青色
4红色12亮红色
5粉色13亮粉色
6黄色14亮黄色[/br]

比如:QBColor(2)代表绿色；QBColor(6)代表黄色。

还有几种表示颜色的方法，例如，表示背景颜色是黑色:

表格1。BackColor = RGB(0，0.0)

或者:

表格1。BackColor = VbBlack

也可以是:

表格1。BackColor = QBColor(0)

示例:显示颜色。

界面:添加一个形状控件，3个文本框控件，2个标签和两个水平滚动条。

代码:

private Sub hscroll 1 _ Change()
a = hscroll 1。Value
Label4。Caption = a
Text1。back color = QB color(a)
End Sub

private Sub hscroll 2 _ Change()
a = hscroll 2。值
标签2。Caption = a
形状1。FillStyle = 0
Shape1。fill color = QB color(a)
End Sub