Функція QBColor

Повертає колірний код 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.

Коди помилок:

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