QBColor Function

Returns the RGB color code of the color passed as a color value through an older MS-DOS based programming system.

Sintaksis:

QBColor (AngkaWarna As Integer)

Nilai hasil:

Long

Parameter:

ColorNumber: Any integer expression that specifies the color value of the color passed from an older MS-DOS based programming system.

AngkaWarba dapat ditentukan dengan nilai berikut:

0 : Hitam

1 : Biru

2 : Hijau

3 : Cyan

4 : Merah

5 : Magenta

6 : Kuning

7 : Putih

8 : Abu-abu

9 : Biru Muda

10 : Hijau Muda

11 : Light Cyan

12 : Merah Muda

13 : Light Magenta

14 : Kuning Muda

15 : Putih Cerah

This function is used only to convert from older MS-DOS based BASIC applications that use the above color codes. The function returns a long integer value indicating the color to be used in the LibreOffice IDE.

Kode kesalahan:

5 Tidak sah dalam pemanggilan prosedur

Contoh:

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,"Warna " & iColor

End Sub