Vrátí hodnotu typu Long představující kód barvy RGB odpovídající zadanému číslu barvy.
Syntaxe
QBColor(barva)
Požadovaný barevnýargument je celé číslo v rozsahu 0–15.
Nastavení
Argument barva má následující 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 Basicu (například Microsoft Visual Basic for MS-DOS a Basic Compiler). Počínaje nejméně významným bajtem určuje vrácená hodnota červenou, zelenou a modrou hodnotu, které slouží 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.
Tento příklad používá funkci QBColor ke změně vlastnosti BackColor formuláře předaného jako MyForm barvy 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