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版本——MS-DOS的Microsoft Visual Basic和QuickBASIC编译器——使用的颜色值。从最低有效字节开始，返回值指定了RGB系统中用于设置对应颜色的红、绿、蓝分量，就像用这些分量调用了RGB一样。
示例
本示例使用QBColor从数字颜色代码设置窗体的背景颜色。
vb
Sub ChangeBackColor(ByVal ColorCode As Integer, ByVal MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub