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.

Vrací hodnotu typu Long představující kód barvy RGB, který odpovídá zadanému číslu barvy.

Syntaxe

QBColor ( color )

Požadovaný Argumentbarva je celé číslo v rozsahu od 0 do 15.

Nastavení

Nastavení argumentu barva:

Číslo

Barva

Číslo

Barva

+

Černá

2,5

Šedá

2,5

Modrá

3

Světle modrá

5,08

Zelená

10

Světle zelená

15

Azurová

11

Světle azurová

1

Červená

3,5

Světle červená

17

Purpurová

13

Světle purpurová

18

Žlutá

14

Světle žlutá

7:

Bílá

150

Jasně bílá


Poznámky

Argument barva představuje hodnoty barev používané dřívější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 hodnoty červené, zelené a modré používané pro 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 .Barvapozadí formuláře předané jako hodnota MyForm na barvu určenou vlastností ColorCode. Funkce QBColor akceptuje kladná celá čísla 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.

Sdílení Facebook Facebook Twitter Twitter E-mail E-mail

Byly tyto informace užitečné?

Výborně! Je ještě něco dalšího, co byste nám chtěli dát vědět?

Jak bychom ho mohli vylepšit?

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

×