IBM Lotus Symphony
|
Palauttaa suurkokonaislukuväriarvon, joka koostuu punaisesta, vihreästä ja sinisestä komponentista.
RGB (Red, Green, Blue)
Suurkokonaisluku
Red: Mikä tahansa kokonaislukulauseke, joka ilmaisee komposiittivärin punaisen komponentin (0 – 255).
Green: Mikä tahansa kokonaislukulauseke, joka ilmaisee komposiittivärin vihreän komponentin (0 - 255).
Blue: Mikä tahansa kokonaislukulauseke, joka ilmaisee komposiittivärin sinisen komponentin (0 - 255).
Sub ExampleColor
Dim lVar As Long
lVar = rgb(128,0,200)
msgbox "The color " & lVar & " consists of:" & Chr(13) &_
"red= " & red(lVar) & Chr(13)&_
"green= " & green(lVar) & Chr(13)&_
"blue= " & blue(lVar) & Chr(13) , 64,"colors"
end sub