Функция QBColor

  • Статья

Возвращает значение типа Long, представляющее код цвета RGB, соответствующий указанному номеру цвета.

Синтаксис

QBColor(color)

Обязательный аргументcolor — это целое число в диапазоне от 0 до 15.

Settings

Аргумент color может принимать следующие значения.

Числовой Цвет Числовой Цвет
0 Черный 8 Серый
1 Синий 9 Светло-синий
2 Зеленый 10 Светло-зеленый
3 Cyan 11 Светло-голубой
4 Красный 12 Светло-красный
5 Пурпурный 13 Светло-пурпурный
6 Желтый 14 Светло-желтый
7 Белый 15 Ярко-белый

Замечания

Аргумент color представляет значения цвета, которые использовались в предыдущих версиях Basic (таких как Microsoft Visual Basic для MS-DOS и Basic Compiler). Начиная с младшего байта, возвращенное значение задает значения красного, зеленого и синего цветов для определения соответствующего цвета в системе RGB, используемой в Visual Basic для приложений.

Пример

В этом примере функция QBColor используется для изменения свойства BackColor формы, переданной в качестве MyForm цвета, указанного .ColorCode Функция QBColor принимает целочисленные значения в диапазоне от 0 до 15.

Sub ChangeBackColor (ColorCode As Integer, MyForm As Form)
    MyForm.BackColor = QBColor(ColorCode)
End Sub

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.