QBColor Function
рдкреБрд░рд╛рдиреЛ MS-DOS рдЖрдзрд╛рд░рд┐рдд рдкреНрд░реЛрдЧрд╛рдорд┐рдЩреН рд╢реИрд▓реАрдмрд╛рдЯ рд░рдЩ рдорд╛рдирдХреЛ рд░реВрдкрдорд╛ рдкрд╛рд╕ рднрдПрдХреЛ рд░рдЩрдХреЛ RGBрд░рдЩ рд╕рдЩреНрдХреЗрдд рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
QB рд░рдЩ (рдЗрдиреНрдЯрд┐рдЬрд░рдХреЛ рд░реВрдкрдорд╛ рд░рдЩ рдирдореНрдмрд░)
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рд▓рд╛рдореЛ
рдкрд░рд╛рдорд┐рддрд┐:
рд░рдЩ рдирдореНрдмрд░:рдХреБрдиреИ рдЗрдиреНрдЯрд┐рдЬрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд▓реЗ рдкреБрд░рд╛рдиреЛ рдПрдордПрд╕-рдбрд╕ рдЖрдзрд╛рд░рд┐рдд рдкреНрд░реЛрдЧрд╛рдорд┐рдЩреН рд╢реИрд▓реАрдмрд╛рдЯ рдкрд╛рд╕рдЧрд░реЗрдХреЛ рд░рдЩрдХреЛ рд░рдЩрдорд╛рди рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ ред
рд░рдЩ рдирдореНрдмрд░рд▓реЗ рджрд┐рдПрдХреЛ рдорд╛рди рдорд╛рдирд╛рдЩреНрдХрди рдЧрд░реНрди рд╕рдХреНрдЫ:
реж : рдХрд╛рд▓реЛ
рез : рдиреАрд▓реЛ
реи : рд╣рд░реАрдпреЛ
рей : рдХреНрдпрд╛рди
рек : рд░рд╛рддреЛ
рел : рдореНрдпрд╛рдЬреЗрдиреНрддрд╛
рем : рдкрд╣реЗрдВрд▓реЛ
рен : рд╕реЗрддреЛ
рео : рдЦрд░рд╛рдирд┐ рд░рдЩ
реп : рд╣рд▓реНрдХрд╛ рдиреАрд▓реЛ
резреж : рд╣рд▓реНрдХрд╛ рд╣рд░реАрдпреЛ
резрез : рд╣рд▓реНрдХрд╛ рдХреНрдпрд╛рди
резреи : рд╣рд▓реНрдХрд╛ рд░рд╛рддреЛ
резрей : рд╣рд▓реНрдХрд╛ рдореНрдпрд╛рдЬреЗрдиреНрддрд╛
резрек : рд╣рд▓реНрдХрд╛ рдкрд╣реЗрдВрд▓реЛ
резрел : рдЪрдореНрдХрд┐рд▓реЛ рд╕реЗрддреЛ
рдпреЛ рдкреНрд░рдХрд╛рд░реНрдп рдкреБрд░рд╛рдиреЛ рдПрдордПрд╕-рдбрд╕ рдЖрдзрд╛рд░рд┐рдд рдмреЗрд╕рд┐рдХ рдЕрдиреБрдкреНрд░рдпреЛрдЧрд╣рд░реВрдмрд╛рдЯ рддреНрдпрд╕рдорд╛рдерд┐ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреЗ рд░рдЩ рд╕рдЩреНрдХреЗрддрд╣рд░реВ рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реНрдирдХрд╛ рд▓рд╛рдЧрд┐ рдорд╛рддреНрд░ рдкреНрд░рдпреЛрдЧ рд╣реБрдиреНрдЫ ред рдпреЛ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ LibreOffice IDEрдорд╛ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдирд▓рд╛рдИ рд░рдЩ рджреЗрдЦрд╛рдЙрджреИ рд▓рд╛рдореЛ рдЗрдиреНрдЯрд┐рдЬрд░ рдорд╛рди рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
рдЙрджрд╛рд╣рд░рдг:
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