IBM Lotus Symphony
|
Возвращает синюю составляющую указанного цветового кода.
Blue (Цвет As Long)
Integer
Значение цвета: выражение типа Long Integer, задающее произвольный код цвета, для которого необходимо выделить синюю составляющую.
Sub ExampleColor
Dim lVar As Long
lVar = rgb(128,0,200)
MsgBox "Цвет " & lVar & " состоит из:" & Chr(13) &_
"красный = " & Red(lVar) & Chr(13)&_
"зеленый = " & Green(lVar) & Chr(13)&_
"синий = " & Blue(lVar) & Chr(13) , 64,"цветов" uot;
End Sub