Red Function

Returns the Red component of the specified composite color code.

Sintaksa:


Red (ColorNumber As Long)

Vlerë absolute

Numër i plotë

Parametri i sllajdit

ColorNumber: Long integer expression that specifies any composite color code for which to return the Red component.

Error codes:

5 Invalid procedure call

tip

The color picker dialog details the red, green and blue components of a composite color code, as well as its hexadecimal expression. Changing the color of text and selecting Custom color displays the color picker dialog.


Shembull


Sub ExampleColor
Dim lVar As Long
    lVar = rgb(128,0,200)
    MsgBox "The color " & lVar & " consists of:" & Chr(13) &_
        "red= " & red(lVar) & Chr(13)&_
        "green= " & green(lVar) & Chr(13)&_
        "blue= " & blue(lVar) & Chr(13) , 64,"colors"
End Sub

Please support us!