Fonction Red
Renvoie le composant rouge du code de couleur spécifié.
Syntaxe :
Red (ColorNumber As Long)
Valeur de retour :
Nombre entier
Paramètre :
ColorNumber : expression au format nombre entier long spécifiant tout code de couleur pour lequel le composant rouge doit être renvoyé.
Exemple :
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