Sisukord
Register 🔎︎

# 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