Теоретическая часть. Visual Basicподдерживает четыре стандартных элемента управления, предназначенных для создания графики

Visual Basic поддерживает четыре стандартных элемента управления, предназначенных для создания графики. Это - Image (окно изображений). Line (линия), Shape (геометрический контур) и PictureBox (графическое окно).

Графические файлы формата JPG, GIF, BMP, ICO можно отображать непосредственно на форме, в элементе управления PictureBox и элементе управления Image. В режиме проектирования имя файла указывается при определении свойства Picture в окне свойств. Чтобы удалить рисунок, нужно выделить значение свойства и нажать клавишу Delete.

В режиме выполнения для добавления картинки используется функция LoadPicture.

'Загрузить файл "C:\Мои документы\Cars.bmp" в графическое окно:

Picture1.Picture = LoadPicture("C:\Picts\Cars.bmp")

'Удалить картинку из элемента управления Picturel:

Picture1.Picture = LoadPicture("")

Если свойству AutoSize объекта PictureBox присвоить значение True, то размеры графического поля подгоняются под картинку. Если значение свойства Stretch объекта Image равно False, то размеры объекта автоматически станут равными размерам картинки. Если же значение этого свойства сделать равным True, размеры картинки автоматически станут равными размерам объекта Image – картинка, скорее всего, деформируется.

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

Графическое окно можно использовать как контейнер для других элементов. Помещенные в PictureBox элементы управления будут перемещаться вместе с графическим окном, а их свойства Тор и Left будут подчинены ему, а не форме. Свойство Align выравнивает графическое поле по краю формы.

Visual Basic предоставляет несколько методов для создания графики на форме и в графическом окне. Рассмотрим работу графических методов на форме. Если графические методы применяются к текущей форме, то имя объекта можно не указывать, в других случаях используется обычный синтаксис:

<Объект>.<Метод>

Форма имеет собственную систему координат, начало которой находится в ее верхнем левом углу. Масштаб формы задан свойствами ScaleHeight и ScaleWidth, единицы измерения заданы свойством ScaleMode Свойства CurrentX и CurrentY определяют текущую координату точки вывода графики. В начале работы программы CurrentX и CurrentY равны 0 (левый верхний угол объекта формы). Если же применялись графические методы, то текущими будут координаты последней точки, вычерченной отработавшим графическим методом.

1. Метод Pset рисует точку в координатах х, у, заданным цветом, заданного размера.

Pset (х, у)[, <Цвет>]

Параметры x и y могут быть заданы любым числовым выражением. Если цвет не указан, то по умолчанию он считается черным или определяется цветом свойства ForeColor

'Точка ярко-голубого цвета на форме Form1

Form1.Pset (300,100), RGB(0, 0, 255)

Координаты точки можно задать не явно, а относительно текущей точки, которая определяется значениями свойств CurrentX, CurrentY. Относительные координаты задаются ключевым словом Step.

Form1.Pset Step(10,10)

2. Метод Point возвращает значение цвета в определенной точке.

М = Point (10,10)

'Переменная М содержит значение цвета в виде числа типа Long

3. Метод Line чертит линию из координат точки (х1, у1) в координаты (х2, у2).

Line [(х1, у1)] - (х2, у2) [, Цвет] [,B][F]

Если(х1, у1) опустить, то начало будет в текущей точке.

Line (500, 500) - (2000, 2000)

Line - (3000,3000)

Visual Basic вычерчивает линию без последней точки. Если нужно нарисовать последнюю точку, следует добавить в конце Pset Step(0,0).

Методом Line можно нарисовать прямоугольник. В этом случае нужно указать координаты противоположных углов прямоугольника и добавить параметр В. Следующая команда нарисует прямоугольник. Пропущенный параметр Цвет обозначен запятыми.

Line (500,500) - Step (1000,1000)„ В

Параметр F задает сплошную заливку прямоугольника. Цвет задается свойством формы ForeColor:

Line (500,500) - Step (1000,1000),, BF

4. Метод Circle рисует окружность, эллипс или дугу окружности с центром в точке x, у. Общий формат представления метода:

Circle (x, у), <Радиус>[, <Цвет>] [, <Начало>] [, <Конец>] [, <Аспект >]

Координаты и радиус должны быть заданы явно, переменными или числовыми выражениями. Если цвет не указан, используется значение свойства ForeColor формы.

Следующая команда рисует окружность с центром в точке с координатами 1200, 1000 и радиусом 750. Единицы, измерения задаются свойством ScaleMode формы.

Circle(1200, 1000), 750

Следующая команда рисует окружность в центре формы радиусом в четверть ширины формы ярко-красным цветом.

Circle(ScaleWidth/2, ScaleHeight/2), ScaleWidth/4, QBColor(12)

Чтобы вычертить дугу, нужно добавить параметры <Начало> и <Конец> угла в радианах. Рисование происходит против часовой стрелки. Например,

Const Pi=3.1415926

Circle (3500,1500), 1000,, Pi/2, 3*Pi/2

Для вычерчивания эллипсов добавляется параметр <Аспект>. Этот параметр задает отношение вертикальной оси к горизонтальной и является положительным вещественным числом с плавающей точкой, а параметр <Радиус> применяется к большей оси эллипса.

'Вычерчиваем эллипс, вытянутый по вертикальной оси:

Circle (1000,1000), 500,,,, 2

'Вычерчиваем эллипс, вытянутый по горизонтальной оси:

Circle (2000, 2000), 500,,,, 1/2

Нарисовав прямоугольник, окружность или эллипс для их заполнения можно использовать свойства FillStyle и FillColor. Значения свойства FillStyle определяют тип штриховки (или заливки фигуры):

0 - сплошная заливка цветом, установленным в FillColor:

1 - прозрачный;

2 - горизонтальные линии (----);

3 - вертикальные линии (||);

4 - диагональные линии направленные влево и навверх (\\\\\);

5 - диагональные линии направленные вправо и навверх (/////);

6 - пересекающаяся штриховка (┼┼┼┼);

7 - диагональная штриховка (xxxx).

Дата добавления: 2014-12-23