Module
Contents
Index 🔎︎

# QBColor 函数

用于处理由基于 MS-DOS 的早期编程系统传送的颜色值所代表的颜色。此函数可以返回这些颜色的 RGB 颜色代码。

## 语法：

    QBColor (ColorNumber As Integer)

## 返回值：

Long

## 参数：

ColorNumber：任意整数表达式，用于指定由基于 MS-DOS 的早期编程系统传送的颜色值。

可以向 ColorNumber 指定以下值：

0：黑色

1：蓝色

2：绿色

3：青色

4：红色

5：紫红色

6：黄色

7：白色

8：灰色

9：浅蓝色

10：浅绿色

11：浅青色

12：浅红色

13：浅紫红色

14：浅黄色

15：透明白色

此函数只能用于转换基于 MS-DOS 的早期 BASIC 应用程序，因为这些应用程序使用上面列出的颜色代码。函数将返回一个长整型值，以指示在 LibreOffice IDE 中使用的颜色。

## 错误代码：

5 无效的过程调用

## 示例：

    Sub ExampleQBColor

    Dim iColor As Integer

    Dim sText As String

        iColor = 7

        sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )

        MsgBox stext,0,"Color " & iColor

    End Sub