IBM Lotus Symphony
|
Zwraca wartość koloru w postaci długiej liczby całkowitej zawierającej składowe: czerwoną, zieloną i niebieską.
RGB (Czerwony, Zielony, Niebieski)
Długa liczba całkowita
Czerwony: Liczba całkowita oznaczająca składową czerwoną koloru złożonego (0-255).
Zielony: Liczba całkowita oznaczająca składową zieloną koloru złożonego (0-255).
Niebieski: Liczba całkowita oznaczająca składową niebieską koloru złożonego (0-255).
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