返回一个 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