Vrátí hodnotu typu Long představující kód barvy RGB odpovídající zadanému číslu barvy.
Syntaxe
QBColor(color)
Argumentem požadované barvyje 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 jazyk Visual Basic for Application.
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 funkce QBColor používá ke změně vlastnosti BackColor formuláře předaného jako MyForm barva označená .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