2024年5月11日发(作者：)

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）

RGB（255，0，0）

RGB（0，255，0）

RGB（0，0，255）

RGB（0，255，255）

RGB（255，0，255）

RGB（255，255，0）

RGB（255，255，255）

2、QBColor函数

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

i值

0

1

2

3

4

5

6

7

颜色

黑色

蓝色

绿色

青色

红色

粉红色

黄色

白色

i值

8

9

10

11

12

13

14

15

颜色

灰色

亮蓝色

亮绿色

亮青色

亮红色

亮粉红色

亮黄色

亮白色

常数

VbBlack

VbRed

VbGreen

VbBlue

VbCyan

VbMagenta

VbYellow

VbWhite

返回值

&H0

&HFF0

&HFF00

&HFF0000

&HFFFF00

&HFF00FF

&HFFFF

&HFFFFFF

颜色

黑色

红色

绿色

蓝色

青色

紫红色

黄色

白色

QBColor 函数 返回一个 Long，用来表示所对应颜色值的 RGB 颜色码。

语法 QBColor(color)

必要的 color 参数是一个界于 0 到 15 的整型。

设置值

color 参数有以下这些设置：

值 颜色 值 颜色

0 黑色 8 灰色

1 兰色 9 亮兰色

2 绿色 10 亮绿色

3 青色 11 亮青色

4 红色 12 亮红色

5 洋红色 13 亮洋红色

6 黄色 14 亮黄色

7 白色 15 亮白色

说明

color 参数代表使用于早期版本的 Basic（诸

如 Microsoft Visual Basic for MS-DOS 以及 Basic Compiler）的颜色值。始于

最低有效字节，返回值指定了红、绿、蓝三原色的值，用于设置成 VBA中RGB 系统的对应颜色。

如：QBColor（2）代表绿色；QBColor（6）代表黄色。

表示颜色的方法对应的也有几种，如，表示一个背景颜色为黑色：

lor = RGB(0,0.0)

或:

lor = VbBlack

也可以为:

lor = QBColor(0)

例：显示颜色。

界面：添加一个Shape控件、3个TextBox控件、2个标签、两个水平滚动条。

代码：

Private Sub HScroll1_Change()

a =

n = a

lor = QBColor(a)

End Sub

Private Sub HScroll2_Change()

a =

n = a

yle = 0

lor = QBColor(a)

End Sub