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.

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

Mohon dukung kami!