Tagastab määratud värvinumbrile vastava RGB-värvikoodi pika täisarvuna.
Süntaks
QBColor(värv)
Nõutav värviargumenton täisarv vahemikus 0–15.
Sätted
Argumendil värv on järgmised sätted.
| Arv | Värv | Arv | Värv |
|---|---|---|---|
| 0 | Must | 8 | Hall |
| 1 | Sinine | 9 | Helesinine |
| 2 | Roheline | 10 | Heleroheline |
| 3 | Tsüaan | 11 | Heletsüaan |
| 4 | Punane | 12 | Helepunane |
| 5 | Magenta | 13 | Helemagenta |
| 6 | Kollane | 14 | Helekollane |
| 7 | Valge | 15 | Säravvalge |
Kommentaarid
Argument color tähistab basicu varasemates versioonides (nt Microsoft Visual Basic for MS-DOS ja Basic Compiler) kasutatud värviväärtusi. Alates vähima kaaluga baidist määrab tagastatud väärtus punased, rohelised ja sinised väärtused, mille abil määratakse sobiv värv RGB-süsteemis, mida kasutab Visual Basic for Applications.
Näide
Märkus.
Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.
Selles näites MyForm kasutatakse funktsiooni QBColor, et muuta vormi atribuut BackColor, mis on esitatud kujul , mida ColorCodenäitab . Funktsioon QBColor aktsepteerib täisarvulisi väärtusi vahemikus 0–15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub