Funkcija QBColor

Pastaba:  Norėtume jums kuo greičiau pateikti naujausią žinyno turinį jūsų kalba. Šis puslapis išverstas automatiškai, todėl gali būti gramatikos klaidų ar netikslumų. Mūsų tikslas – padaryti, kad šis turinys būtų jums naudingas. Gal galite šio puslapio apačioje mums pranešti, ar informacija buvo naudinga? Čia yra straipsnis anglų kalba , kuriuo galite pasinaudoti kaip patogia nuoroda.

Pateikia ilgą RGB spalvos kodą, atitinkantį nurodytą spalvų skaičių, nurodantį.

Sintaksė

Funkcija QBColor ( spalvos )

Spalvų argumentas yra sveikasis skaičius nuo 0-15.

Parametrai

Argumento spalva turi šiuos parametrus:

Skaičius

Spalva

Skaičius

Spalva

0

Juoda

8

Pilka

1

Mėlyna

9

Šviesiai mėlynas

2

Žalia

10

Šviesiai žalia spalva

3

Žalsvai mėlyna

11

Šviesiai žalsvai mėlyna

4

Raudona

12

Šviesiai raudona

5

Purpurinė

13

Šviesiai purpurinė

6

Geltona

14

Šviesiai geltona

7

Balta

15

Skaisčiai baltas


Pastabos

Argumento spalva atitinka naudojamas ankstesnėse versijose (pvz., "Microsoft" Visual Basic for MS-DOS ir pagrindinės kompiliatorius) pagrindinės spalvų reikšmes. Pradedant mažiausiai reikšmingas baitus, grąžinama reikšmė nurodo raudona, žalia ir mėlyna reikšmes, naudojama norint nustatyti atitinkamą spalvą naudoja Visual Basic for Applications RGB sistemoje.

Pavyzdys

Pastaba: Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.

Šiame pavyzdyje funkcija QBColor pakeisti perduotos kaip MyForm spalvą nurodo ColorCodeformos ypatybę . Funkcija QBColor priima sveikojo skaičiaus reikšmes nuo 0 iki 15.

Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub
Tobulinkite savo „Office“ įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×