Возвращает значение типа Long, отражающее цвет RGB, соответствующий указанному номеру цвета.
Синтаксис
QBColor(color)
Обязательный аргумент color— это целое число в диапазоне от 0 до 15.
Параметры
Аргумент color имеет следующие параметры:
| Число | Цвет | Число | Цвет |
|---|---|---|---|
| 0 | Черный | 8 | Серый |
| 1 | Синий | 9 | Светло-синий |
| 2 | Зеленый | 10 | Светло-зеленый |
| 3 | Голубой | 11 | Светло-голубой |
| 4 | Красный | 12 | Светло-красный |
| 5 | Пурпурный | 13 | Светло-пурпурный |
| 6 | Желтый | 14 | Светло-желтый |
| 7 | Белый | 15 | Ярко-белый |
Замечания
Аргумент color представляет значения цветов, используемые более ранними версиями Basic (например, Microsoft Visual Basic для MS-DOS и базовым компилятором). Начиная с младшего байта, возвращаемое значение определяет значения красного, зеленого и синего цветов, которые используются для задания соответствующего цвета в системе RGB, применяемой в Visual Basic для приложений (VBA).
Пример
Примечание
В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.
В этом примере функция QBColor используется для изменения свойства BackColor формы, переданной в качестве MyForm цвета, указанного .ColorCode Функция QBColor принимает целочисленные значения от 0 до 15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub