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é.

Codes d'erreur :

5 appel de procédure incorrect

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