Zwraca wartość długą odpowiadającą kodowi koloru RGB odpowiadającemu określonemu numerowi koloru.
Składnia
QBColor(color)
Wymaganym argumentem kolorujest liczba całkowita z zakresu od 0 do 15.
Ustawienia
Argument kolor ma następujące ustawienia:
| Liczba | Kolor | Liczba | Kolor |
|---|---|---|---|
| 0 | Czarne | 8 | Szary |
| 1 | Niebieski | 9 | Jasnoniebieski |
| 2 | Zielony | 10 | Jasnozielony |
| 3 | Błękitny | 11 | Jasny cyjan |
| 4 | Czerwony | 12 | Jasnoczerwony |
| 5 | Amarantowy | 13 | Jasny amarantowy |
| 6 | Żółty | 14 | Jasnożółty |
| 7 | Biały | 15 | Jasny biały |
Uwagi
Argument kolor reprezentuje wartości kolorów używane we wcześniejszych wersjach języka Basic (takich jak Microsoft Visual Basic dla MS-DOS i kompilator Basic). Począwszy od najmniej znaczącego bajtu, zwracana wartość określa wartości czerwony, zielony i niebieski używane do ustawiania odpowiedniego koloru w systemie RGB używanym przez język Visual Basic for Applications.
Przykład
Uwaga
Poniższe przykłady przedstawiają sposób użycia tej funkcji w module języka Visual Basic for Applications (VBA). Aby uzyskać dodatkowe informacje na temat pracy w języku VBA, wybierz pozycję Dokumentacja dewelopera z listy rozwijanej obok przycisku Wyszukaj i wprowadź odpowiednie terminy w polu wyszukiwania.
W tym przykładzie użyto funkcji QBColor w celu zmiany właściwości BackColor przekazywanego formularza na MyForm kolor wskazywany przez ColorCode.
Funkcja QBColor przyjmuje wartości całkowite z zakresu od 0 do 15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub