IBM Lotus Symphony
|
Zwraca treść koloru zielonego w określonym kodzie koloru.
Green (Kolor As Long)
Liczba całkowita
Kolor: Długa liczba całkowita określająca dowolny kod koloru, dla którego ma zostać zwrócona składowa zielona.
Sub Przyklad_Color
Dim lZm As Long
lZm = rgb(128,0,200)
msgbox "Kolor " & lZm & " składa się z:" & Chr(13) &_
"czerwony = " & red(lZm) & Chr(13)&_
"zielony = " & green(lZm) & Chr(13)&_
"niebieski = " & blue(lZm) & Chr(13) , 64,"(składowe kolory)"
end sub