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