Lotus Symphony 1.2


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 應用程式。 函數將傳回一個長整數值,指出要在 IBM® 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


其他文件 | 商標