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函数颜色效果。

2、QBColor函数

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

如：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

[程序演示]        [程序下载]

责编:水自流  纠错