目次

# 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の使用するカラー値を示すロング整数が返されます。

### Error codes:

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

ご支援をお願いします！