QBColor 函数
Returns a Long representing the RGB color code corresponding to the specified color number.
语法
QBColor (颜色)
所需的 颜色参数 是 0-15 范围内的整数。
设置
颜色参数具有以下设置：
| 数字 | 颜色 | 数字 | 颜色 |
|---|---|---|---|
| 0 | 黑色 | 8 | 灰色 |
| 1 | 蓝色 | 9 | 浅蓝色 |
| 2 | 绿色 | 10 | 浅绿色 |
| 3 | 蓝绿 | 11 | 浅青色 |
| 4 | 红色 | 12 | 浅红色 |
| 5 | 洋红 | 13 | 浅洋红色 |
| 6 | 黄色 | 14 | 浅黄色 |
| 7 | 白色 | 15 | 亮白色 |
备注
颜色参数表示 MS-DOS 的 Microsoft Visual Basic 以及 Basic 编译器等早期版本的 Basic 所使用的颜色值。 从最没有意义的字节开始，返回的值指定了红色、绿色和蓝色值，它们可用于在针对应用程序的 Visual Basic 所使用的 RGB 系统中设置相应的值。
示例
此示例使用 QBColor 函数将传入MyForm的窗体的 BackColor 属性更改为 指示ColorCode的颜色。
QBColor accepts integer values between 0 and 15.
Sub ChangeBackColor (ColorCode As Integer, MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。