Red Function
Returns the Red component of the specified composite color code.
Синтакса
Red (ColorNumber As Long)
Врати вредност:
Цел број
Параметар:
ColorNumber: Long integer expression that specifies any composite color code for which to return the Red component.
The color picker dialog details the red, green and blue components of a composite color code, as well as its hexadecimal expression. 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= " & црвена(lVar) & Chr(13)&_
"green= " & зелена(lVar) & Chr(13)&_
"blue= " & сина(lVar) & Chr(13) , 64,"colors"
End Sub