Red Function
Vracia hodnotu červenej zložky pre zadaný kód farby.
Syntax:
Red (Farba As Long)
Návratová hodnota:
Celé číslo
Parameter:
Farba: Celočíselný výraz určujúci akýkoľvek kód farby, ktorého červenú zložku chcete vrátiť.
Príklad:
Sub ExampleColor
Dim lVar As Long
lVar = rgb(128,0,200)
MsgBox "Farba " & lVar & " sa skladá z:" & Chr(13) &_
"red= " & Red(lVar) & Chr(13)&_
"green= " & Green(lVar) & Chr(13)&_
"modra = " & Blue(lVar) & Chr(13) , 64,"farby"
End Sub