Vrátí hodnotu typu Long představující barevný kód RGB odpovídající zadanému barevnému číslu.
Syntaxe
QBColor (barva)
Požadovaná barvaArgument je celé číslo v rozsahu 0 až 15.
Nastavení
Argument barva má tato nastavení:
|
Číslo |
Barva |
Číslo |
Barva |
|
0 |
Černá |
8 |
Šedě: |
|
1 |
Modrá |
9 |
Světle modrá |
|
2 |
Zeleně: |
10 |
Světle zelená |
|
3 |
Azurová |
11 |
Světle azurová |
|
4 |
Červená |
12 |
Světle červená |
|
5 |
Purpurová |
13 |
Light Magenta |
|
6 |
Žlutě: |
14 |
Světle žlutá |
|
7 |
Bílá |
15 |
Světle bílá |
Poznámky
Argument barva představuje hodnoty barev používané ve starších verzích jazyka Basic (například Jazyk Microsoft Visual Basic pro MS-DOS a základní překladač). Počínaje nejméně významným bytem určuje vrácená hodnota červené, zelené a modré hodnoty použité k nastavení vhodné barvy v systému RGB používaném v jazyce Visual Basic for Applications.
Příklad
Poznámka: Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.
V tomto příkladu se pomocí funkce QBColor změní vlastnost BackColor formuláře předanou MyForm na barvu označenou funkcí ColorCode. QBColor přijímá celočíselné hodnoty od 0 do 15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub
