Tagastab värvi RGB-väärtuse pika täisarvuna.
Süntaks
RGB( red, green, blue – punane, roheline, sinine)
Funktsioonil RGB on järgmised argumendid.
|
Argument |
Kirjeldus |
|
punane |
Nõutav. Variant (täisarv). Arv vahemikus 0–255 (k.a), mis tähistab punase osakaalu värvis. |
|
roheline |
Nõutav. Variant (täisarv). Arv vahemikus 0–255 (k.a), mis tähistab rohelise osakaalu värvis. |
|
sinine |
Nõutav. Variant (täisarv). Arv vahemikus 0–255 (k.a), mis tähistab sinise osakaalu värvis. |
Kommentaarid
Rakenduse meetodid ja atribuudid, mis aktsepteerivad värvimääratlust, eeldavad, et see määratlus on arvuline RGB-väärtus. Värvi RGB-väärtus määrab punase, rohelise ja sinise suhtelised osakaalud, mille põhjal kuvatakse konkreetne värv.
Kui funktsiooni RGB mõni argument on suurem kui 255, tõlgendatakse seda arvuna 255.
Järgmises tabelis on esitatud standardvärvid ja nende punase, rohelise ja sinise osakaal.
|
Värv |
Punase väärtus |
Rohelise väärtus |
Sinise väärtus |
|
Must |
0 |
0 |
0 |
|
Sinine |
0 |
0 |
255 |
|
Roheline |
0 |
255 |
0 |
|
Tsüaan |
0 |
255 |
255 |
|
Punane |
255 |
0 |
0 |
|
Magenta |
255 |
0 |
255 |
|
Kollane |
255 |
255 |
0 |
|
Valge |
255 |
255 |
255 |
Selle funktsiooni tagastatavad RGB-väärtused ei ühildu Macintoshi opsüsteemides kasutatavate väärtustega. Neid väärtusi võib kasutada Macintoshi jaoks mõeldud Microsofti rakendustes, aga mitte otse Macintoshi opsüsteemile värvidega seotud käskude andmiseks.
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 kujutatakse seda, kuidas funktsiooni RGB abil tagastatakse täisarv, mis tähistab värvi RGB-väärtust. Seda kasutatakse nendes rakenduste meetodites ja atribuutides, mis aktsepteerivad värvimääratlust. Objekt MyObject ja selle atribuut on üksnes illustreerivad. Kui objekti MyObject pole olemas või kui sellel pole atribuuti Color, ilmneb tõrge.
Dim RED, I, RGBValue, MyObject' Return the value for Red.Red = RGB(255, 0, 0) ' Initialize offset.I = 75 RGBValue = RGB(I, 64 + I, 128 + I) ' Same as RGB(75, 139, 203).' Set the Color property of MyObject to Red.MyObject.Color = RGB(255, 0, 0)
