Zwraca wartość typu Liczba długa reprezentującą kod koloru RGB odpowiadający określonej liczbie kolorów.
Składnia
QBColor(kolor)
Argument wymagany kolorto 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 błękitny |
| 4 | Czerwony | 12 | Jasnoczerwony |
| 5 | Magenta | 13 | Amarantowy |
| 6 | Żółty | 14 | Jasnożółty |
| 7 | Biały | 15 | Jasnobiałe |
Uwagi
Argument kolor reprezentuje wartości kolorów używane we wcześniejszych wersjach programu Basic (takich jak Microsoft Visual Basic for MS-DOS i Kompilator podstawowy). Rozpoczynając od najmniejszego bajtu, zwrócona wartość określa wartości czerwony, zielony i niebieski użyte do ustawienia odpowiedniego koloru w systemie RGB używanym przez 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 formularza przekazanego jako 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