IBM Lotus Symphony
|
Devuelve el componente rojo del código de color dado.
Red (NúmeroColor As Long)
Entero
NúmeroColor: Expresión de número entero largo que especifica un código de color para el que devolver el componente rojo.
Sub EjemploColor
Dim lVar As Long
lVar = rgb(128,0,200)
msgbox "El color " & lVar & " contiene los componentes:" & Chr(13) &_
"rojo= " & red(lVar) & Chr(13)&_
"verde= " & green(lVar) & Chr(13)&_
"azul= " & blue(lVar) & Chr(13) , 64,"colores"
end sub