QBColor 函数
应用对象
Microsoft 365 专属 Access Access 2024 Access 2021 Access 2019 Access 2016
返回一个 Long 类型的值，该值代表对应于指定颜色编号的 RGB 颜色代码。
语法
QBColor (颜色)
所需的颜色参数是 0-15 范围内的整数。
“设置”
color 参数具有以下设置：
| “数字” | 颜色 | “数字” | 颜色 |
|---|---|---|---|
| 0 | 黑色 | 8 | 灰色 |
| 1 | 蓝色 | 9 | 浅蓝色 |
| 2 | 绿色 | 10 | 浅绿色 |
| 3 | 青色 | 11 | 浅青色 |
| 4 | 红色 | 1.2 | 浅红色 |
| 5 | 品红 | 1.3 | 浅洋红色 |
| 6 | Yellow | 14 | 浅黄色 |
| 7 | 白色 | 15 | 亮白 |
备注
color 参数表示早期版本的 Basic (（例如 Microsoft Visual Basic for MS-DOS 和 Basic 编译器) ）使用的颜色值。 从最小有效字节开始，返回的值指定用于在Visual Basic for Applications使用的 RGB 系统中设置适当颜色的红色、绿色和蓝色值。
示例
注意
下面的示例演示了如何在 Visual Basic for Applications (VBA) 模块中使用此函数。 有关使用 VBA 的详细信息，请在搜索旁边的下拉列表中选择“开发人员参考”，并在搜索框中输入一个或多个术语。
此示例使用 QBColor 函数将传入MyForm的窗体的 BackColor 属性更改为 指示ColorCode的颜色。
QBColor 接受 0 到 15 之间的整数值。
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub