IBM Lotus Symphony
|
Renvoie le composant vert du code de couleur donné.
Green (Color As Long)
Nombre entier
Color : expression de type nombre entier long spécifiant un code de couleur pour lequel le composant vert doit être renvoyé.
Sub ExampleColor
Dim lVar As Long
lVar = rgb(128,0,200)
msgbox "La couleur " & lVar & " contient les composants :" & Chr(13) &_
"rouge = " & red(lVar) & Chr(13)&_
"vert = " & green(lVar) & Chr(13)&_
"bleu = " & blue(lVar) & Chr(13) , 64,"couleurs"
end sub