Pateikia ilgą skaičių, reiškiantį RGB spalvos kodą, atitinkantį nurodytą spalvos numerį.
Sintaksė
QBColor ( spalva )
Būtinos spalvosargumentas yra sveikasis skaičius diapazone nuo 0 iki 15.
Parametrai
Spalvos argumentas turi šiuos parametrus:
|
Skaičius |
Spalva |
Skaičius |
Spalva |
|
0 |
Juoda |
8 |
Pilka |
|
1 |
Mėlyna |
9 |
Šviesiai mėlyna |
|
2 |
Žalia |
10 |
Šviesiai žalia |
|
3 |
Cyan |
11 |
Šviesiai žydra |
|
4 |
Red |
12 |
Šviesiai raudona |
|
5 |
Magenta |
13 |
Šviesiai purpurinė |
|
6 |
Geltona |
14 |
Šviesiai geltona |
|
7 |
Balta |
15 |
Šviesiai balta |
Pastabos
Spalvos argumentas nurodo spalvų reikšmes, naudotas ankstesnėse "Basic" versijose (pvz., "Microsoft Visual Basic for MS-DOS" ir "Basic Compiler"). Pradedant nuo mažiausios reikšmės baito, grąžinama reikšmė nurodo raudoną, žalią ir mėlyną reikšmes, naudojamas nustatyti tinkamą 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 būtų pakeista formos, perduotos kaip MyForm , BackColor ypatybė į spalvą, kurią nurodo ColorCode. QBColor priima sveikųjų skaičių reikšmes nuo 0 iki 15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub
