Fungsi QBColor
Mengembalikan kode warna RGB kode warna dari warna yang dilewatkan sebagai nilai warna melalui sistem pemrograman lama berbasis MS-DOS.
Sintaksis:
QBColor (AngkaWarna As Integer)
Nilai hasil:
Long
Parameter:
NomorWarna : Ekspresi integer apa pun yang menentukan nilai warna dari warna yang diteruskan dari sistem pemrograman lama berbasis MS-DOS.
AngkaWarba dapat ditentukan dengan nilai berikut:
0 : Hitam
1 : Biru
2 : Hijau
3 : Sian
4 : Merah
5 : Magenta
6 : Kuning
7 : Putih
8 : Abu-abu
9 : Biru Muda
10 : Hijau Muda
11 : Sian Muda
12 : Merah Muda
13 : Light Magenta
14 : Kuning Muda
15 : Putih Cerah
Fungsi ini hanya digunakan untuk mengonversi dari aplikasi BASIC berbasis MS-DOS lama yang menggunakan kode warna di atas. Fungsi mengembalikan nilai integer panjang yang menunjukkan warna yang akan digunakan dalam IDE LibreOffice.
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