Funkce Red [běhová]

Navrací červenou složku určeného kódu barvy.

Syntaxe:

Red (ČísloBarvy As Long)

Návratová hodnota:

Celé číslo

Parametr:

ČísloBarvy: Výraz typu long integer určující kód barvy, pro který má být navrácena červená složka.

Kódy chyby

Příklad:

Sub ExampleColor

Dim lVar As Long

lVar = rgb(128,0,200)

msgbox "Barva " & lVar & " sestává z následujících komponent:" & Chr(13) &_

"red= " & red(lVar) & Chr(13)&_

"green= " & green(lVar) & Chr(13)&_

"blue= " & blue(lVar) & Chr(13) , 64,"colors"

end sub