RGB Function
Returns a Long integer color value consisting of red, green, and blue components.
แแถแแแโแแแแแแแ แ
RGB (Red, Green, Blue)
แแแแแโแแแแกแแ แ
Long
แแแถแแแถแแแแแแ แ
Red แ แแแแแแโแ แแแฝแโแแแโแแฝแ แแแโแแแแถแโแแแถแแแถแโแแแโแแแแ แ (แ -แขแฅแฅ) แแโแแแโแแแโแแแแย แ
Green แ แแแแแแโแ แแแฝแโแแแโแแฝแ แแแโแแแแถแโแแแถแแแถแโแแแโแแแแ (แ -แขแฅแฅ) แแโแแแโแแแโแแแแย แ
Blue แ แแแแแแโแ แแแฝแโแแแโแแฝแ แแแโแแแแถแโแแแถแแแถแโแแแโแแแ (แ -แขแฅแฅ) แแโแแแโแแแโแแแแย แ
The color picker dialog helps computing red, green and blue components of a composite color. Changing the color of text and selecting Custom color displays the color picker dialog.
แงแแถแ แแแ แ
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