Элементы управления, применяемые для работы с графикой

Простейшими элементами управления для работы с графикой являются Line и Shape.

1. Линия (Line): используются для размещения на форме линий различной толщины и стилей. Некоторые свойства:

Name: по умолчанию Line1

X1, Y1, X2, Y2:координаты начальной и конечной точек

BorderColor: цвет линии, BorderWidth: толщина линии

BorderStyle: стиль линии (если свойство BorderWidth=1, то может принимать целые значения от 0 до 6: сплошная, пунктирная, штрих-пунктирная и другие стили).

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

Некоторые свойства: Name: по умолчанию Shape1

Shape: задает тип фигуры (целые значения от 0 до 5)

BorderColor: цвет линии границы, BorderWidth: толщина линии границы

BorderStyle: стиль линии границы (если BorderWidth=1, то целые значения от 0 до 6)

FillColor: цвет заполнения фигуры, FillStyle: стиль заполнения (целые значения от 0 до 7: прозрачный, сплошная заливка, вертикальные линии и другие стили).

Отличие линий и фигур от других элементов управления заключается в том, что для них не обрабатываются никакие события.

Пример: в зависимости от заданного значения свойства Shape строятся разные типы фигур (проект «Фигуры»).

Private Sub HScroll1_Change()

Shape1.Shape = HScroll1.Value

Label2.Caption = HScroll1.Value

End Sub

Private Sub HScroll1_Scroll()

HScroll1_Change

End Sub

В Visual Basic существуют специальные элементы управления для размещения на форме готовых изображений, хранящихся в графических файлах формата JPG, GIF, BMP, ICO.

3. Поле образа (Image) – элемент управления, который помещает изображение в нужное место формы, может изменять его размеры и пропорции.

Некоторые свойства:

Name: по умолчанию Image1

Stretch: способ подгонки изображения

а) Если Stretch=True, то размер загружаемого изображения подгоняется под размер Image

б) Если Stretch=False, то размер Image подгоняется под размер загружаемого изображения

Picture: путь доступа к файлу, хранящему загружаемое в Image изображение

Пример: представлено одно и то же изображение, помещенное в элементы Image с разным значением свойства Stretch: в первом изображение исходного размера (Stretch = False), а в других показаны возможные эффекты при изменении размера Image (Stretch = True).

4. Графическое поле (Picture Box) – элемент управления, который помещает изображение в нужное место формы, а также имеет собственную систему координат и позволяет использовать графические методы и анимацию. В отличие от элемента Image, элемент Picture Box не может изменять исходный размер изображения.

Некоторые свойства: Name: по умолчанию Picture1

AutoSize:

а) Если AutoSize =True, то размер Picture подгоняется под размер загружаемого изображения

б) Если AutoSize =False, то размер Picture не подгоняется под размер загружаемого изображения

Picture: путь доступа к файлу, хранящему загружаемое в Picture изображение

AutoRedraw: перерисовка изображения

Пример 1: представлено одно и то же изображение, помещенное в элементы Picture Box, у которых разные размеры и значения свойства AutoSize. В последнем случае графическое поле подгоняется по размеру изображения.

Пример 2: На форму помещаем элемент Picture и командную кнопку Нарисовать, после щелчка по которой создается «картина» из 50 разноцветных прямоугольников («Авангард»).

Программный код:

Private Sub Command1_Click()

Dim i As Integer 'номер фигуры

Dim x1, x2, y1, y2 As Integer 'координаты фигуры

Randomize Timer

Picture1.Cls 'очищаем графическое поле

'строится 50 закрашенных прямоугольников

'координаты и цвет задаются случайным образом

For i = 1 To 50

x1 = Picture1.Width * Rnd

y1 = Picture1.Height * Rnd

x2 = Picture1.Width * Rnd

y2 = Picture1.Height * Rnd

Picture1.Line (x1, y1)-(x2, y2), RGB(Rnd * 255, Rnd * 255, Rnd * 255), BF

Next i

End Sub

Замечание: Во время выполнения приложения для загрузки изображения на форму, командную кнопку, в элементы Image и Picture Box применяется функция LoadPicture():

Image1.Picture = LoadPicture(“C:\Рисунки\ris1.bmp”)

Для удаления изображения надо вместо полного имени файла указать пустую строку:

Picture1.Picture = LoadPicture(“”)