Module
Contents
Index 🔎︎

# QBColor Function

Возвращает цветовой код RGB цвета, передаваемого как значение цвета в старой системе программирования на основе MS-DOS.

## Синтаксис

    QBColor (Номер_цвета As Integer)

## Возвращаемое значение:

Long

## Параметр:

Номер_цвета. Выражение из целых чисел, определяющее значение цвета для цвета, передаваемого из старой системы программирования на основе MS-DOS.

Параметру Номер_цвета могут быть присвоены следующие значения:

0 . Чёрный

1 . Синий

2 . Зелёный

3 . Голубой

4 . Красный

5 . Пурпурный

6 . Желтый

7 . Белый

8 . Серый

9 . Светло-синий

10 . Светло-зелёный

11 . Светло-голубой

12 . Светло-красный

13 . Светло-пурпурный

14 . Светло-желтый

15 . Ярко-белый

Эта функция используется только для преобразования цветов из старых приложений BASIC на основе MS-DOS, использующих перечисленные выше цветовые коды. Функция возвращает значение типа Long, указывающее цвет, который должен использоваться в LibreOffice IDE.

## Error codes:

5 Неправильный вызов процедуры

## Пример:

    Sub ExampleQBColor
    Dim iColor As Integer
    Dim sText As String
        iColor = 7
        sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )
        MsgBox stext,0,"Цвет " & iColor
    End Sub