Содержимое

# функция QBColor

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

### Синтаксис:

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

### Return type:

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.

### Коды ошибок:

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

Пожалуйста, поддержите нас!