Возвращает значение типа Long, отражающее цвет RGB, соответствующий указанному номеру цвета.
Синтаксис
QBColor ( цвет )
Обязательный аргумент цветаргумент является целым числом в диапазоне от 0 до 15.
Параметры
Аргумент цвет может принимать следующие значения:
Номер |
Цвет |
Номер |
Цвет |
0 |
Черный |
8 |
Серый |
1 |
Синий |
9 |
Светло-синий |
2 |
Зеленый |
10 |
Светло-зеленый |
3 |
Голубой |
11 |
Светло-голубой |
4 |
Красный |
12 |
Светло-красный |
5 |
Пурпурный |
13 |
Светло-пурпурный |
6 |
Желтый |
14 |
Светло-желтый |
7 |
Белый |
15 |
Ярко-белый |
Замечания
Аргумент цвет представляет значения цветов, используемые в более ранних версиях Basic (например, Microsoft Visual Basic для MS-DOS и Basic Compiler). Начиная с младшего байта, возвращаемое значение определяет значения красного, зеленого и синего цветов, которые используются для задания соответствующего цвета в системе 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