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.
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