IBM Lotus Symphony
|
Renvoie le composant Bleu du code de couleur spécifié.
Blue (Color As Long)
Nombre entier
Valeur de couleur : expression de type nombre entier long spécifiant tout code de couleur pour lequel le composant bleu doit être renvoyé.
Sub ExampleColor
Dim lVar As Long
lVar = rgb(128,0,200)
MsgBox "La couleur " & lVar & " est composée de :" & Chr(13) &_
"rouge = " & Red(lVar) & Chr(13)&_
"vert= " & Green(lVar) & Chr(13)&_
"bleu= " & Blue(lVar) & Chr(13) , 64,"couleurs"
End Sub