Red Function
Returns the Red component of the specified composite color code.
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
рд░рд╛рддреЛ (рд▓рдореНрдмрд╛рдЗ рд░реВрдкрдорд╛ рд░рдЩ рдирдореНрдмрд░)
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рдЗрдиреНрдЯрд┐рдЬрд░
рдкрд░рд╛рдорд┐рддрд┐:
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