Turinys

# Raudona funkcija

Grąžina nurodyto sudėtinio spalvų kodo raudonos spalvos komponentą.

### Sintaksė:

    Red (ColorNumber As Long)

### Return type:

Sveikasis skaičius

### Parametrai:

Spalvos numeris: Ilgoji sveikojo skaičiaus išraiška nurodo bet kurį sudėtinį spalvų kodą, kuriam grąžinamas raudonos spalvos komponentas.

Under VBA compatibility mode (Option VBASupport 1), the function Red() is incompatible with VBA colors, when color from previous call to function RGB [VBA] is passed.

### Klaidos kodai:

5 Neteisingas procedūros iškvietimas

Spalvos ėmiklio dialogo lange išsamiai aprašomi raudoni, žali ir mėlyni sudėtinio spalvų kodo komponentai, taip pat jų šešioliktainė išraiška. Teksto spalvos keitimas ir Vartotojo spalvos parinkimas rodo spalvos ėmiklio dialogo langą.

### Pavyzdys:

    Sub ExampleColor
    Dim lVar As Long
        lVar = rgb(128,0,200)
        MsgBox "Spalvą " & lVar & " sudaro:" & Chr(13) &_
            "red= " & red(lVar) & Chr(13)&_
            "green= " & green(lVar) & Chr(13)&_
            "blue= " & blue(lVar) & Chr(13) , 64,"colors"
    End Sub

Paremkite mus!