Mengembalikan Long yang mewakili kode warna RGB yang sesuai dengan nomor warna yang ditentukan.
Sintaks
QBColor(warna)
Argumen warnayang diperlukan adalah bilangan bulat dalam rentang 0–15.
Pengaturan
Argumen warna memiliki pengaturan berikut:
| Angka | Warna | Angka | Warna |
|---|---|---|---|
| 0 | [Hitam] | 8 | Abu |
| 1 | Biru | 9 | Biru Muda |
| 2 | Hijau | 10 | Hijau Muda |
| 3 | Cyan | 11 | Cyan Terang |
| 4 | Merah | 1.2 | Merah Muda |
| 5 | Magenta | 1,3 | Magenta Terang |
| 6 | Kuning | 14 | Kuning Muda |
| 7 | Putih | 15 | Putih cerah |
Keterangan
Argumen warna mewakili nilai warna yang digunakan oleh versi Basic sebelumnya (seperti Microsoft Visual Basic untuk MS-DOS dan Basic Compiler). Dimulai dengan byte paling tidak signifikan, nilai yang dikembalikan menentukan nilai merah, hijau, dan biru yang digunakan untuk mengatur warna yang sesuai dalam sistem RGB yang digunakan oleh Visual Basic untuk Aplikasi.
Contoh
Catatan
Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.
Contoh ini menggunakan fungsi QBColor untuk mengubah properti BackColor dari formulir yang diteruskan MyForm ke warna yang ditunjukkan oleh ColorCode.
QBColor menerima nilai bilangan bulat antara 0 dan 15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub