Returnează un Long reprezentând codul de culoare RGB corespunzător numărului de culoare specificat.
Sintaxă
QBColor(culoare)
Argumentul culoriinecesare este un număr întreg cuprins între 0 și 15.
Setări
Argumentul culoare are aceste setări:
| Număr | Color | Număr | Color |
|---|---|---|---|
| 0 | Negru | 8 | Gri |
| 1 | Albastru | 9 | Albastru deschis |
| 2 | Verde | 10 | Verde deschis |
| 3 | Bleu | 11 | Bleu deschis |
| 4 | Red | 12 | Roșu deschis |
| 5 | Magenta | 13 | Magenta deschis |
| 6 | Galben | 14 | Galben deschis |
| 7 | Alb | 15 | Alb strălucitor |
Observații
Argumentul culoare reprezintă valorile de culoare utilizate de versiunile anterioare de Basic (cum ar fi Microsoft Visual Basic pentru MS-DOS și compilatorul Basic). Începând cu bytul cel mai puțin semnificativ, valoarea returnată specifică valorile pentru roșu, verde și albastru utilizate pentru a seta culoarea corespunzătoare în sistemul RGB utilizat de Visual Basic for Applications.
Exemplu
Notă
Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.
Acest exemplu utilizează funcția QBColor pentru a modifica proprietatea BackColor a formularului transferat în ceea ce privește MyForm culoarea indicată de ColorCode.
QBColor acceptă valori întregi între 0 și 15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub