QBColor Function

傳回由基於 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

Please support us!