Contents

# QBColor Function

傳回由基於 MS-DOS 的早期程式設計系統作為顏色值傳送的顏色的 RGB 顏色代碼。

### Syntax:

QBColor(ColorNumber As Integer)

### Return type:

Long

### Parameters:

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 無效的程序呼叫

### Example:

    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!