Зміст

# Функція QBColor

Повертає колірний код RGB кольору, переданого як значення кольору в старій системі програмування на основі MS-DOS.

### Синтаксис:

QBColor (Номер_кольору As Integer)

### Return type:

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

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