Управление цветом

Поле рисования имеет 2 основных цвета, заданных соответствующими свойствами:

BackCoIor - цвет фона, используется при очистке области рисования.

ForeColor - цвет переднего плана, используется при рисовании. Для рисования конкретным цветом предварительно нужно установить этот цвет на переднем плане, а затем вызывать методы рисования этим цветом.

Значение цвета задается встроенными константами VB, например: vbRed - красный, vbGreen - зеленый и т.д.

Для установки цвета используется операция присваивания, например, чтобы нарисовать в графическом окне Picturel линию белого цвета на желтом фоне, необходимо запрограммировать:

Picture1. BackColor=vbYellow

Picture1.Cls

Picturе1.ForeColor=vbWhite

Picture1.Line (0, 0)-(100,100)

Графические методы даны в табл.3.2.

Таблица 3.2

Метод	Описание
Cls	Стирает все изображения в поле рисования
Pset	Рисует одну точку (пиксел) заданным цветом
Point	Возвращает цвет заданной точки (пиксела)
Line	Рисует линию, контурный или закрашенный прямоугольник
Circle	Рисует окружность, эллипс или дугу

Методом Cls можно в любой момент очистить поле рисования, которое закрашивается цветом фона (свойство BackColor):

[object].Cls

Без параметра object метод очищает всю экранную форму, в коде которой он исполняется. Например, очистка поля рисования графического окна Picturel с закраской в черный цвет:

Picture1.BackColor=vbBlack

Picture1.Cls

Метод Pset устанавливает цвет пиксела в заданной точке:

[object].Рset (х,у) [, color]

Параметры х и у могут быть целыми, дробными или числовыми выражениями любой сложности.

Если цвет color не задан, по умолчанию используется цвет переднего плана (свойство ForeCoIor). Например, нарисовать точку голубого цвета с координатами х=100, у=200 в графическом окне Picturel:

Picturel.Pset (100,200), vbBluе

Метод Line чертит линию между двумя точками с координатами (xl,yl) и (х2,у2):

Line (x1,y1) - (х2,у2) [, соlоr]

или из предыдущей точки черчения в заданную точку с координатами (х2, у2):

Line - (х2,у2) [, color]

Параметры xl, yl; x2, y2 могут быть целыми, дробными или числовыми выражениями любой сложности.

Если цвет color не задан, по умолчанию используется цвет переднего плана (свойство ForеColor). Например, нарисовать линию синего цвета между точками (х=100, у=200) и (х=300, у=400) в графическом окне Picturel:

Picturel,Line (100,200) - (300,400), vbCyan