Blue Function

Returns the blue component of the specified composite color code.

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


рдиреАрд▓реЛ(рд▓рдореНрдмрд╛рдЗрдХреЛ рд░реВрдкрдорд╛ рд░рдЩ)

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рдЗрдиреНрдЯрд┐рдЬрд░

рдкрд░рд╛рдорд┐рддрд┐:

Color value: Long integer expression that specifies any composite color code for which to return the blue component.

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

tip

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) &_
        "рд░рд╛рддреЛ= " & рд░рд╛рддреЛ(lVar) & Chr(резрей)&_
        "рд╣рд░реАрдпреЛ= " & рд╣рд░реАрдпреЛ(lVar) & Chr(13)&_
        "рдиреАрд▓реЛ= " & рдиреАрд▓реЛ(lVar) & Chr(резрей) , ремрек,"рд░рдЩрд╣рд░реВ"
End Sub