IBM Lotus Symphony
|
Zwraca treść koloru niebieskiego w określonym kodzie koloru.
Blue (Kolor As Long)
Liczba całkowita
Wartość koloru: Długa liczba całkowita określająca dowolny kod koloru, dla którego ma zostać zwrócona składowa niebieska.
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