Pateikia ilgąjį RGB spalvos kodą, atitinkantį nurodytą spalvos numerį.

Sintaksė

QBColor ( spalva )

Reikiamą spalvąargumentas sudaro sveikasis skaičius intervale nuo 0 iki 15.

Parametrai

Argumente spalva yra šie parametrai:

Skaičius

Spalva

Skaičius

Spalva

0

Juoda

8

Pilka

1

Mėlyna

9

Šviesiai mėlyna

2

Žalia

10

Šviesi žalia

3

Žydros

11

Šviesi Žalsvoji mėlyna

4

Red

12

Šviesiai raudona

5

Magenta

13

Šviesiai rausvai raudona

6

Geltoną

14

Šviesi geltona

7

Balta

15

Ryškus baltas


Pastabos

Argumentas spalva reiškia spalvų reikšmes, kurias naudoja ankstesnės Basic versijos (pvz., "Microsoft Visual Basic" MS-DOS ir Paprastasis kompiliatorius). Pradedant mažiausiai reikšmingu baitu, grąžinama reikšmė nurodo raudoną, žalią ir mėlyną reikšmes, naudojamas nustatyti reikiamą spalvą RGB sistemoje, kurią naudoja "Visual Basic for Applications".

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 naudojama funkcija QBColor , kad pakeistumėte perkeltos formos ypatybę backcolorMyForm į ColorCodenurodytą spalvą. " 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

Reikia daugiau pagalbos?

Tobulinkite savo įgūdžius
Ieškoti mokymo

Ar ši informacija buvo naudinga?

Ar esate patenkinti kalbos kokybe?
Kas turėjo įtakos jūsų įspūdžiams?

Dėkojame už jūsų atsiliepimus!

×