Установка цвета

Цвет рисунка задается установкой свойства ForeColor формы или элемента PictureBox. В месте с тем можно рисовать цветными линиями, задавая значения (необязательного) аргумента color, используемого методами Line и Circle (последний рассматривается далее). Операторы, демонстрирующие использование этого аргумента, показаны ниже.

Line (10,10) – (100,100), RGB(255,0,0)

Line (10,10) – (100,100), &HOOOOFF

Line (10,10) – (100,100), QBColor(3)

RedColor# = RGB(255,0,0)

Line (10,10) – (100,100), RedColor#

Во всех примерах прочерчивается красная линия из точки с координатами (10,10) в точку (100,100), независимо от установок свойства ForeColor. В качестве аргумента color метода можно использовать любое выражение, устанавливающее корректное значение цвета (color expression). Обычно цвет линии определяется установкой свойства ForeColor элемента, однако для текущей линии аргумент color метода Line преобладает над свойством ForeColor. Если вы нарисуете другую линию, не задав аргумент color, то ее цвет будет соответствовать установке свойства ForeColor элемента. Таким образом, при отсутствии параметра цвета, он будет совпадать со значением свойства ForeColor объекта.

Как видно из примеров, параметр color (цвет) – это выражение, значением которого является число типа Long, которым в VB кодируется тот или иной цвет. В качестве выражения может использоваться:

• функция RGB;

• функция QBColor.

• число типа Long;

• одна из восьми констант VB, представленных в таблице 4.

Таблица 4.

Кодировка цвета

Цвет	Константа	Числовое значение
1	2	3
Черный	vbBlack	0
Красный	vbRed	255
Зеленый	vbGreen	65280
Желтый	vbYellow	65535
Синий	vbBlue	16711680
Сиреневый	vbMagenta	16711935

Продолжение таблицы 4.

1	2	3
Голубой	vbCyan	16776960
Белый	vbWhite	16777215

Значения констант таблицы 4, являющихся длинным целым числом, можно представить в виде суммы трех слагаемых: R + 256∙G + 256²∙В, где каждая из переменных (R, G и В) принимает одно из двух значений – 0 или 255.

Если переменным R, G и В присвоить другие целочисленные значения от 0 до 255, например: R = 64, G = 128 и В = 192, при этом указанная сумма будет отличаться от значений в табл. 4, а обозначаемый этой суммой цвет – от приведённых в таблице цветов.

Значение функции RGB (R, G, В) – это и есть значение указанной суммы, имеющее тип Long (длинное целое число).

Очевидно, что количество значений, которые может принимать функция RGB, равно 256³. Именно такое количество различных цветовых оттенков могут использовать графические методы Visual Basic.

Каждый оттенок представляет собой смесь трёх цветов: красного (Red), зелёного (Green) и синего (Blue). Значение переменной R – это доля красного цвета в этой смеси, значение переменной G – доля зелёного цвета, а значение переменной В – доля синего цвета. Если все три значения одинаковы, цвета нейтрализуют друг друга, тогда получается чёрный, серый или белый цвет. Чем меньше значение переменных, тем цвет ближе к чёрному, чем больше значение, тем цвет ближе к белому.

Если же значения R, G и В не совпадают, то получаются оттенки самых разных цветов. Например, если R = 0, а G = В, получается голубой цвет (Cyan); если G = 0, а R = В, получается сиреневый цвет (Magenta), если же В = 0, а R = G, получается жёлтый цвет (Yellow). Все эти цвета будут более яркими, если ненулевые значения ближе к 255, и будут приближаться к чёрному, если ненулевые значения приближаются к 0.

Кроме перечисленных способов задания цвета, в VB есть ещё один – с помощью функции QBColor, единственным аргументом которой является целое число С, а значением – код цвета⁴. Названия этих цветов приведены в таблице 5. В скобках указаны константы VB, которым соответствуют некоторые из них.

Таблица 5.

Кодирование цвета с помощью функции QBColor

Цвет	С
Чёрный (vbBlack)	0
Тёмно-синий	1
Тёмно-зелёный	2
Тёмно-голубой	3
Тёмно-красный	4
Тёмно-сиреневый	5
Коричневый	6
Светло-серый	7
Темно-серый	8
Синий (vbBlue)	9
Зеленый (vbGreen)	10
Голубой (vbCyan)	11
Красный (vbRed)	12
Сиреневый (vbMagenta)	13
Желтый (vbYellow)	14
Белый (vbWhite)	15