QBColor

---

構文

QBColor(color)

引数colorには、0～15の範囲の整数を指定します。

解説

指定した色番号に対応するRGBコードを表す長整数型の値を返します。

引数colorの設定値は次のとおりです。

番号	色
0	黒
1	青
2	緑
3	シアン
4	赤
5	マゼンタ
6	黄
7	白
8	灰色
9	明るい青
10	明るい緑
11	明るいシアン
12	明るい赤
13	明るいマゼンタ
14	明るい黄
15	明るい白

サンプル

次の例は、フォームの背景色に、ユーザーが入力した色を指定します。

Sub Sample()
    Dim code As Integer
    code = InputBox("色番号（０～15）を指定してください")
    If IsNumeric(code) Then
        Me.BackColor = QBColor(code)
    End If
End Sub