Funkcija Red
Vrne rdeči delež navedene kode sestavljene barve.
Skladnja:
Red (c As Long)
Vrnjena vrednost:
Integer
Parameter:
BarvnoŠtevilo: izraz vrste Long integer, ki določa kodo sestavljene barve, za katero želimo izvedeti delež rdeče.
Pogovorno okno Izberi barvo podrobno izpiše rdečo, zeleno in modro komponento kode sestavljene barve, kot tudi njen šestnajstiški izraz. S spreminjanjem barve besedila in izbiro Barva po meri odprete pogovorno okno izbirnika barv.
Primer:
Sub ExampleColor
Dim lVar As Long
lVar = rgb(128,0,200)
MsgBox "Barvo " & lVar & " sestavljajo:" & Chr(13) &_
"rdeča barva= " & Red(lVar) & Chr(13)&_
"zelena barva= " & Red(lVar) & Chr(13)&_
"in modra barva = " & Red(lVar) & Chr(13), 64,"barve"
End Sub