Red Function

Tagastab antud värvikoodi punase komponendi.

SĂźntaks:


Red (ColorNumber As Long)

Tagastusväärtus:

Täisarv

Parameeter:

ColorNumber: pikk täisarvavaldis, mis määrab värvikoodi, mille jaoks punane komponent tagastatakse.

Error codes:

5 Vigane protseduuri väljakutse

Näide:


Sub ExampleColor
Dim lVar As Long
    lVar = rgb(128,0,200)
    MsgBox "Värv " & lVar & " koosneb:" & Chr(13) &_
        "punasest= " & red(lVar) & Chr(13)&_
        "rohelisest= " & green(lVar) & Chr(13)&_
        "sinisest= " & blue(lVar) & Chr(13) , 64,"värvist"
End Sub