QBColor 函数
更新：2007 年 11 月
返回一个 Integer 值，该值表示对应于指定的颜色编号的 RGB 颜色代码。
QBColor(Color)
参数
- Color
必需。0 到 15 范围中的整数。
设置
Color 参数有下列设置。
数字 |
颜色 |
数字 |
颜色 |
|---|---|---|---|
0 |
黑色 |
8 |
灰色 |
1 |
蓝色 |
9 |
浅蓝色 |
2 |
绿色 |
10 |
淡绿色 |
3 |
青色 |
11 |
淡青色 |
4 |
红色 |
12 |
浅红色 |
5 |
洋红色 |
13 |
浅洋红色 |
6 |
黄色 |
14 |
淡黄色 |
7 |
白色 |
15 |
亮白色 |
异常
异常类型 |
错误号 |
条件 |
|---|---|---|
Color 不在 0 到 15（含 0 和 15）范围之内。 |
如果正在升级使用非结构化错误处理方式的 Visual Basic 6.0 应用程序，请参见“错误号”一列。（您可以根据 Number 属性（Err 对象） 比较错误号。） 然而，如果可能，应当考虑用 Visual Basic 的结构化异常处理概述 替换这种错误控制。
备注
从最低有效字节开始，返回值指定由 Visual Basic 语言使用的、用于设置 RGB 系统中适当颜色的红色、绿色和蓝色的值。
示例
此示例使用 QBColor 函数更改为由 colorInteger 指示的颜色。QBColor 接受 0 到 15 之间的整数值。
Dim colorInteger As Integer
' Use 4 for red.
colorInteger = QBColor(4)
要求
**模块：**Information
**程序集：**Visual Basic 运行库（在 Microsoft.VisualBasic.dll 中）