Funkce QBColor

Důležité :  Tento článek je strojově přeložený – přečtěte si toto upozornění. Anglickou verzi tohoto článku pro referenci najdete tady.

Vrátí hodnotu typu Long představující kód barvy RGB odpovídající číslu určitou barvu.

Syntaxe

QBColor ( color )

Požadované barvyArgument je celé číslo v rozsahu 0-15.

Nastavení

Argument barvy má tato nastavení:

Počet

Barva

Počet

Barva

0

Černá

8

Šedé

1

Blue

9

Světle modrá

2

Green

10

Světle zelená

3

Azurová

11

Světle azurový

4

Červená

12

Světle červená

5

Purpurovou

13

Light purpurovou

6

Žlutá

14

Světle žlutou

7

Bílá

15

Jasně bílém pozadí


Poznámky

Argument barvy představuje hodnoty barvy použité v dřívějších verzích základní (jako je Microsoft Visual Basic for MS-DOS a základní kompilátoru). Vrácená hodnota začnete s nejméně významným bajt, určuje červeným, zeleným, modré hodnoty a slouží k nastavení požadovanou barvu v na RGB systému 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 změnit vlastnost Barvapozadí formuláře předaný jako MyForm barvu označen ColorCode. QBColor přijímá hodnoty celé číslo od 0 do 15.

Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub

Poznámka : Upozornění ke strojovému překladu: Tento článek přeložil počítačový systém bez zásahu člověka. Společnost Microsoft nabízí tyto strojové překlady proto, aby umožnila uživatelům, kteří nemluví anglicky, získat informace o produktech, službách a technologiích této společnosti. Protože je tento článek strojově přeložený, může obsahovat slovní, syntaktické nebo gramatické chyby.

Rozšiřte své znalosti a dovednosti
Projít školení
Získejte nové funkce jako první
Připojte se k účastníkům programu Office Insiders

Byly tyto informace užitečné?

Děkujeme vám za zpětnou vazbu.

Děkujeme vám za váš názor. Vypadá to, že bude užitečné, když vás spojíme s některým z našich agentů z podpory Office.

×