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 中使用的颜色。

示例：

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