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函数 常数 返回值 颜色

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

使用颜色常数：Form1背景色＝虚拟现实。

背景色＝vbBlue＇蓝色。

背景色＝vbWhite＇白色。

使用QBColor函数：form1。背景色＝QBColor（n）n个值，从0到15。

使用RGB函数：form1。背景色＝RGB（r，g，b）＇r，b，值分别为0到255。

扩展资料：

VbGreen &HFF00 green

VbYellow &HFFFF黄色

VbBlue &HFF0000蓝色

vb品红色&HFF00FF品红色

VbCyan &HFFFF00青色

VbWhite &HFFFFFF white

VbGrayText &H80000011灰色(无效)文本

VbButtonText &H80000012按下按钮上文字的颜色

VbInactiveCaptionText &H80000013非活动标题中的迹绝文本颜色

Vb3DHighlight &H80000014高亮显示3d显示元素的颜或州色

Vb3DDKShadow &H80000015三维显示元素的最暗阴影颜色

在3d中，Vb3DLight和h80000016低于vb3Dhighlight

Vb3DFace &H8000000F文本表面颜色

Vb3DShadow &H80000010文本阴影颜色衫州蔽

VbInfoText &H80000017提示窗口文字颜色

VbInfoBackground &H80000018表示窗口中背景的颜色

---