IBM Lotus Symphony
|
返回由红色、绿色和蓝色成分组成的长整型颜色值。
RGB (Red, Green, Blue)
长整型
Red:任何整型表达式,表示合成颜色中的红色成分(0-255)。
Green:任何整型表达式,表示合成颜色中的绿色成分(0-255)。
Blue:任何整型表达式,表示合成颜色中的蓝色成分(0-255)。
Sub ExampleColor
Dim lVar As Long
lVar = rgb(128,0,200)
msgbox "The color " & lVar & " consists of:" & Chr(13) &_
"red= " & red(lVar) & Chr(13)&_
"green= " & green(lVar) & Chr(13)&_
"blue= " & blue(lVar) & Chr(13) , 64,"colors"
end sub