Tagastab määratud värvinumbrile vastava RGB-värvikoodi pika täisarvuna.
Süntaks
QBColor ( color )
Nõutav värvargument on täisarv vahemikus 0–15.
Sätted
Argumendil color on järgmised sätted.
|
Number |
Värv |
Number |
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 |
Märkused
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 muudetakse funktsiooni QBColor abil vormi (MyForm) atribuut BackColor värviks, mille määrab värvikood (ColorCode). Funktsioon QBColor aktsepteerib täisarvulisi väärtusi vahemikus 0–15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub
