Pateikia reikšmę Long, žyminčią RGB spalvos kodą, atitinkantį nurodytą spalvos numerį.
Sintaksė
QBColor(spalva)
Reikalingas spalvosargumentas yra sveikasis skaičius diapazone nuo 0 iki 15.
Parametrai
Spalvų argumento parametrai yra tokie:
| Skaičius | Spalva | Skaičius | Spalva |
|---|---|---|---|
| 0 | Juoda | 8 | Pilka |
| 1 | Mėlyna | 9 | Šviesiai mėlyna |
| 2 | Žalia | 10 | Šviesiai žalia |
| 3 | Žydra | 11 | Šviesiai žydra |
| 4 | Red | 12 | Šviesiai raudona |
| 5 | Rausvai raudona | 13 | Šviesiai rausvai raudona |
| 6 | Geltona | 14 | Šviesiai geltona |
| 7 | Balta | 15 | Ryškiai balta |
Pastabos
Spalvų argumentas nurodo spalvų reikšmes, naudotas ankstesnėse Basic versijose (pvz., „Microsoft“ Visual Basic for MS-DOS ir Basic Compiler). Pradedant nuo mažiausiai reikšmingo baito, grąžinama reikšmė nurodo raudonos, žalios ir mėlynos spalvos reikšmes, naudojamas nustatyti atitinkamą 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 funkcija QBColor naudojama perduoti formos ypatybei BackColor pakeisti spalvą MyForm , kurią ColorCodežymi .
"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