Zwraca wartość typu Liczba długa reprezentującą kod koloru RGB odpowiadający określonej liczbie kolorów.
Składnia
QBColor ( kolor )
Wymagany kolorargument to 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 |
Spostrzeżenia
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 na 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
