Функція 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

Будь ласка, підтримайте нас!