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 支持和反馈，获取有关如何接收支持和提供反馈的指南。