Функция QBColor
Возвращает значение типа Long, представляющее код цвета RGB, соответствующий указанному номеру цвета.
Синтаксис
QBColor(color)
Обязательный аргументcolor — это целое число в диапазоне от 0 до 15.
Параметры
Аргумент 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 и обратная связь.