IBM Lotus Symphony
|
Devuelve el componente Verde del código de color dado.
Green (Color As Long)
Entero
Color: Expresión de número entero largo que especifica un código de color para el que devolver el componente Verde.
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