Перейти к основному контенту
Поддержка
Войдите с помощью учетной записи Майкрософт
Войдите или создайте учетную запись.
Здравствуйте,
Выберите другую учетную запись.
У вас несколько учетных записей
Выберите учетную запись, с помощью которой нужно войти.

Возвращает значение типа 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

Нужна дополнительная помощь?

Нужны дополнительные параметры?

Изучите преимущества подписки, просмотрите учебные курсы, узнайте, как защитить свое устройство и т. д.

В сообществах можно задавать вопросы и отвечать на них, отправлять отзывы и консультироваться с экспертами разных профилей.

Были ли сведения полезными?

Насколько вы удовлетворены качеством перевода?
Что повлияло на вашу оценку?
После нажатия кнопки "Отправить" ваш отзыв будет использован для улучшения продуктов и служб Майкрософт. Эти данные будут доступны для сбора ИТ-администратору. Заявление о конфиденциальности.

Спасибо за ваш отзыв!

×