QBColor Function

рдкреБрд░рд╛рдиреЛ MS-DOS рдЖрдзрд╛рд░рд┐рдд рдкреНрд░реЛрдЧрд╛рдорд┐рдЩреН рд╢реИрд▓реАрдмрд╛рдЯ рд░рдЩ рдорд╛рдирдХреЛ рд░реВрдкрдорд╛ рдкрд╛рд╕ рднрдПрдХреЛ рд░рдЩрдХреЛ RGBрд░рдЩ рд╕рдЩреНрдХреЗрдд рдлрд░реНрдХрд╛рдЙрдБрдЫ ред

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

QB рд░рдЩ (рдЗрдиреНрдЯрд┐рдЬрд░рдХреЛ рд░реВрдкрдорд╛ рд░рдЩ рдирдореНрдмрд░)

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

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

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

рд░рдЩ рдирдореНрдмрд░:рдХреБрдиреИ рдЗрдиреНрдЯрд┐рдЬрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд▓реЗ рдкреБрд░рд╛рдиреЛ рдПрдордПрд╕-рдбрд╕ рдЖрдзрд╛рд░рд┐рдд рдкреНрд░реЛрдЧрд╛рдорд┐рдЩреН рд╢реИрд▓реАрдмрд╛рдЯ рдкрд╛рд╕рдЧрд░реЗрдХреЛ рд░рдЩрдХреЛ рд░рдЩрдорд╛рди рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ ред

рд░рдЩ рдирдореНрдмрд░рд▓реЗ рджрд┐рдПрдХреЛ рдорд╛рди рдорд╛рдирд╛рдЩреНрдХрди рдЧрд░реНрди рд╕рдХреНрдЫ:

реж : рдХрд╛рд▓реЛ

рез : рдиреАрд▓реЛ

реи : рд╣рд░реАрдпреЛ

рей : рдХреНрдпрд╛рди

рек : рд░рд╛рддреЛ

рел : рдореНрдпрд╛рдЬреЗрдиреНрддрд╛

рем : рдкрд╣реЗрдВрд▓реЛ

рен : рд╕реЗрддреЛ

рео : рдЦрд░рд╛рдирд┐ рд░рдЩ

реп : рд╣рд▓реНрдХрд╛ рдиреАрд▓реЛ

резреж : рд╣рд▓реНрдХрд╛ рд╣рд░реАрдпреЛ

резрез : рд╣рд▓реНрдХрд╛ рдХреНрдпрд╛рди

резреи : рд╣рд▓реНрдХрд╛ рд░рд╛рддреЛ

резрей : рд╣рд▓реНрдХрд╛ рдореНрдпрд╛рдЬреЗрдиреНрддрд╛

резрек : рд╣рд▓реНрдХрд╛ рдкрд╣реЗрдВрд▓реЛ

резрел : рдЪрдореНрдХрд┐рд▓реЛ рд╕реЗрддреЛ

рдпреЛ рдкреНрд░рдХрд╛рд░реНрдп рдкреБрд░рд╛рдиреЛ рдПрдордПрд╕-рдбрд╕ рдЖрдзрд╛рд░рд┐рдд рдмреЗрд╕рд┐рдХ рдЕрдиреБрдкреНрд░рдпреЛрдЧрд╣рд░реВрдмрд╛рдЯ рддреНрдпрд╕рдорд╛рдерд┐ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреЗ рд░рдЩ рд╕рдЩреНрдХреЗрддрд╣рд░реВ рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реНрдирдХрд╛ рд▓рд╛рдЧрд┐ рдорд╛рддреНрд░ рдкреНрд░рдпреЛрдЧ рд╣реБрдиреНрдЫ ред рдпреЛ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ LibreOffice IDEрдорд╛ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдирд▓рд╛рдИ рд░рдЩ рджреЗрдЦрд╛рдЙрджреИ рд▓рд╛рдореЛ рдЗрдиреНрдЯрд┐рдЬрд░ рдорд╛рди рдлрд░реНрдХрд╛рдЙрдБрдЫ ред

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

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

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


Sub ExampleQBColor
Dim iColor As Integer
Dim sText As String
    iColor = 7
    sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )
    рд╕рдиреНрджреЗрд╢ рдмрд╛рдХрд╕ stext,реж,"рд░рдЩ  " & iColor
End Sub