RGB Function
Tagastab pika tÀisarvulise vÀrvivÀÀrtuse, mis sisaldab punase, rohelise ja sinise komponenti.
SĂŒntaks:
RGB (Red, Green, Blue)
TagastusvÀÀrtus:
Long
Parameeter:
Red: suvaline tÀisarvavaldis, mis tÀhistab liitvÀrvi punase komponenti (0-255).
Green: suvaline tÀisarvavaldis, mis tÀhistab liitvÀrvi rohelise komponenti (0-255).
Blue: suvaline tÀisarvavaldis, mis tÀhistab liitvÀrvi sinise komponenti (0-255).
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