RGB Function

рд▓рд╛рдореЛ рдЗрдиреНрдЯрд┐рдЬрд░ рд░рдЩ рдорд╛рдирд▓реЗрдмрдирд╛рдПрдХрд╛ рд░рд╛рддреЛ, рд╣рд░реАрдпреЛ,рд░ рдиреАрд▓реЛ рдЕрд╡рдпрд╡рд╣рд░реВ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред

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


RGB (рд░рд╛рддреЛ, рд╣рд░реАрдпреЛ, рдиреАрд▓реЛ)

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

рд▓рд╛рдореЛ

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

рд░рд╛рддреЛ: рдХреБрдиреИ рдЗрдиреНрдЯрд┐рдЬрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рд╕рдВрдпреБрдХреНрдд рд░рдЩрд╣рд░реВрдХреЛ рд░рд╛рддреЛ рдЕрд╡рдпрд╡ (реж-реирелрел) рдкреНрд░рддрд┐рдиреАрдзрд┐рддреНрд╡ рдЧрд░реНрджрдЫ ред

рд╣рд░реАрдпреЛ:рдХреБрдиреИ рдЗрдиреНрдЯрд┐рдЬрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рд╕рдВрдпреБрдХреНрдд рд░рдЩрд╣рд░реВрдХреЛ рд╣рд░реАрдпреЛ рдЕрд╡рдпрд╡ (реж-реирелрел) рдкреНрд░рддрд┐рдиреАрдзрд┐рддреНрд╡ рдЧрд░реНрджрдЫ ред

рдиреАрд▓реЛ: рдХреБрдиреИ рдЗрдиреНрдЯрд┐рдЬрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рд╕рдВрдпреБрдХреНрдд рд░рдЩрд╣рд░реВрдХреЛ рдиреАрд▓реЛ рдЕрд╡рдпрд╡ (реж-реирелрел) рдкреНрд░рддрд┐рдиреАрдзрд┐рддреНрд╡ рдЧрд░реНрджрдЫ ред

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

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

рдЙрджрд╛рд╣рд░рдг:


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

Please support us!