QBColor Function

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

Syntax:

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

Return value:

Long

Parameters:

Номер_цвета. Выражение из целых чисел, определяющее значение цвета для цвета, передаваемого из старой системы программирования на основе 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 Неправильный вызов процедуры

Example:


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

Please support us!