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