IBM Lotus Symphony
|
Vráti červený komponent špecifikovaného kódu farby.
Red (ColorNumber As Long)
Typ Integer
ColorNumber: Dlhý celočíselný výraz, ktorý špecifikuje každý kód farby, pre ktorý sa má vrátiť červený komponent.
Sub ExampleColor
Dim lVar ako typ Long
lVar = rgb(128,0,200)
msgbox "Farba " & lVar & " sa skladá z:" & Chr(13) &_
"červená = " & red(lVar) & Chr(13)&_
"zelená = " & green(lVar) & Chr(13)&_
"modrá = " & blue(lVar) & Chr(13) , 64,"farby"
end sub