Vrátí hodnotu typu Long představující kód barvy RGB odpovídající zadanému číslu barvy.
Syntaxe
QBColor ( color )
Požadovaná barevnáArgument je celé číslo v rozsahu 0–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 |
Světle purpurová |
|
6 |
Žlutě: |
14 |
Světle žlutá |
|
7 |
Bílá |
15 |
Jasně bílá |
Poznámky
Argument color představuje hodnoty barev používané staršími verzemi jazyka Basic (například Microsoft Visual Basic pro MS-DOS a Basic Compiler). Počínaje nejméně významným bajtem určuje vrácená hodnota červené, zelené a modré hodnoty použité k nastavení příslušné barvy v systému RGB používaném jazykem 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.
Tento příklad používá funkci QBColor ke změně vlastnosti BackColor formuláře předaného jako MyForm na barvu označenou ColorCode. QBColor přijímá celočíselné hodnoty mezi 0 a 15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub
