IBM Lotus Symphony
|
Vrne rdečo komponento podane kode barve.
Red (ColorNumber As Long)
Celo število
ColorNumber: Izraz z dolgim celim številom, ki podaja kodo barve, za katero naj se vrne rdeča komponenta.
Sub ExampleColor
Dim lVar As Long
lVar = rgb(128,0,200)
msgbox "Barva " & lVar & " je sestavljena iz:" & Chr(13) &_
"rdeča = " & red(lVar) & Chr(13)&_
"zelena= " & green(lVar) & Chr(13)&_
"modra= " & blue(lVar) & Chr(13) , 64,"colors"
end sub