IBM Lotus Symphony


QBColor 関数 [実行時]

従来の MS-DOS ベースのプログラミングシステムの使用するカラー値について、その RGB カラーコードを返します。

構文:

QBColor (ColorNumber As Integer)

戻り値:

ロング整数

パラメータ:

ColorNumber : 従来の MS-DOS ベースのプログラミングシステムの使用するカラー値を示す整数表式。

ColorNumber には下記の値を指定できます。

0 : 黒

1 : 青

2 : 緑

3 : シアン

4 : 赤

5 : マゼンタ

6 : 黄

7 : 白

8 : グレー

9 : 明るい青

10 : 明るい緑

11 : 明るいシアン

12 : 明るい赤

13 : 明るいマゼンタ

14 : 明るい黄

15 : 明るい白

この関数は、従来の MS-DOS ベースの BASIC アプリケーションで使われる上記のカラー値を変換する場合にのみ使用します。関数の戻り値は、Lotus® Symphony™ 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


製品フィードバック | その他の資料 | 商標