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