Зміст
Покажчик 🔎︎

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