Mengembalikan Long yang mewakili kode warna RGB yang terkait dengan angka warna yang ditentukan.
Sintaks
QBColor(color)
Argumen warnayang diperlukan adalah bilangan bulat dalam rentang 0–15.
Pengaturan
Argumen warna memiliki pengaturan ini:
| Angka | Warna | Angka | Warna |
|---|---|---|---|
| 0 | [Hitam] | 8 | Abu |
| 1 | Biru | 9 | Biru Muda |
| 2 | Hijau | 10 | Hijau Muda |
| 3 | Cyan | 11 | Sian Terang |
| 4 | Merah | 1.2 | Merah Muda |
| 5 | Magenta | 1,3 | Magenta Muda |
| 6 | Kuning | 14 | Kuning Muda |
| 7 | Putih | 15 | Putih Terang |
Keterangan
Argumen warna mewakili nilai warna yang digunakan oleh versi Dasar yang lebih lama (seperti Microsoft Visual Basic untuk MS-DOS dan Kompiler Dasar). Dimulai dengan byte yang 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 for Applications.
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 formulir yang diteruskan sesuai MyForm dengan 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