Returnează o valoare Lung care reprezintă codul de culoare RGB corespunzător numărului de culoare specificat.
Sintaxă
QBColor ( culoare )
argument de culori necesare este un număr întreg cuprins între 0 și 15.
Setări
Argumentul culoare are următoarele setări:
|
Număr |
Color |
Număr |
Color |
|
0 |
Negru |
8 |
Gri |
|
1 |
Albastru |
9 |
Albastru deschis |
|
2 |
Verde |
10 |
Verde deschis |
|
3 |
Cyan |
11 |
Bleu deschis |
|
4 |
Red |
12 |
Roșu deschis |
|
5 |
Magenta |
13 |
Fucsia deschis |
|
6 |
Galben |
14 |
Galben deschis |
|
7 |
Alb |
15 |
Alb intens |
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 de bază). Începând cu octetul cel mai puțin semnificativ, valoarea returnată specifică valorile 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 transmis ca MyForm la 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
