Елемент управління Line.

Використовується при створенні прямих ліній у формі. Властивості елементу:

X1, X2, Y1, Y2 - задають координати кінцевих точок лінії (одиниця виміру – твіпи 1 твіп=1/20 крапки , що друкується принтером)

BorderColor – колір лінії – обирається з палітри

BorderStyle – тип лінії – Solid – звичайна лінія; Dot – коротка рисочка; Dash – довга рисочка

BorderWidth – товщина лінії

Елемент управління Shape

Використовується для створення прямокутників, квадратів, овалів, кругів та інших геометричних фігур. Початкова фігура – квадрат. Інші фігури задаються зміною значення властивості.

Основні властивості елементу Shape:

BackColor – колір фону об’єкту

BackStyle – прозорість графічного об’єкта - Transparent, якщо непрозорий, то Opaque)

BorderColor – колір рамки (обирається з палітри)

BorderWidth – товщина рамки

FillColor – колір заповнення об’єкту

FillStyle- стиль заповнення об’єкту (штрихування - вертикальні або горизонтальні лінії, діагональний і прямий хрести тощо)

Shape – задає вид геометричної фігури (квадрат – Square, овал – Oval, круг – Circle)

Елемент управління Image

Використовується для завантаження існуючого зображення, яке зберігається у графічних файлах форматів .bmp, .ico, .jpeg, .jpg та інші.

Властивість Picture визначає шлях до файлу із зображенням.

Властивість Stretch із значенням True задає режим автоматичної зміни розміру зображення.

Елемент управління PictureBox

Створює об’єкт, в який крім зображення можна додавати об’єкти Line та Shape.

Елемент управління Timer.

За допомогою цього об’єкта в програмі можна виконувати дії через певний проміжок часу. При створенні форми такий елемент відображається у вигляді значка, розміри якого встановлюється автоматично. Під час виконання програми цей значок невидимий.

Найважливіші властивості цього об’єкта:

• Interval – проміжок часу роботи таймера, містить числові значення від 1 до 65535

• Enabled – активізація або припинення дії роботи таймера, приймає значення відповідно True або False.

Для переміщення об’єктів у формі використовують команду Move. Команда має наступний загальний вигляд:

об’єкт.Move X,Y

Х – відстань між лівою межею форми і об’єктом;

Y – відстань від верхньої межі форми до об’єкта

Для виконання відносного пересування об’єктів можна скористатися наступним прикладом:

об’єкт.Move об’єкт.Left  A [, об’єкт.Тор  В]

де Left – горизонтальне переміщення об’єкта

Top – вертикальне переміщення об’єкта

+ - збільшення відстані

- - зменшення відстані

Наприклад, Shape 1.Move Shape 1.Left + 20, Shape 1.Top + 40

За наведеним прикладом кожного разу при натисненні на командну кнопку з даним програмним кодом управління об’єкт Shape1 буде переміщатися вправо на 120 твіпів та вниз на 140 твіпів

Shape2.Move Shape2.Left+200, Shape2.Top-100

За даним оператором буде здійснено переміщення заданого об’єкта на 200 твіпів вправо та 100 твіпів доверху

2. Приклади додатків, що містять графічні об’єкти

Приклад 71 Створити проект, за допомогою якого можна управляти переміщенням об’єкту Shape. На формі розмістити 4 командні кнопки:

1. перша здійснює переміщення на 300 одиниць донизу;

2. друга – на 200 одиниць праворуч;

3. третя здійснює переміщення по діагоналі на 300 одиниць ліворуч доверху;

4. четверта – закриває проект

Рис. 7.1 Макет форми

Таблиця 7.1 Властивості об’єктів форми

Об’єкт	Властивість	Значення		Пояснення
1	2	3		4
Form 1	BackColor	Вибрати з палітри		Колір фону
	Caption	Графіка		Текст напису
Command 1	BackColor	Вибрати з палітри		Колір фону
	Caption	Переміщення вниз		Текст напису
	Font		Задати параметри шрифту		Шрифт, його розмір та спосіб написання
	Style		Graphical		Задає стиль управління
Command 2	BackColor		Вибрати з палітри		Колір фону
	Caption		Переміщення вправо		Текст напису
	Font		Задати параметри шрифту		Шрифт, його розмір та спосіб написання
	Style		Graphical		Задає стиль управління
Command 3	BackColor		Вибрати з палітри		Колір фону
	Caption		Переміщення по діагоналі вліво вверх		Текст напису
	Font		Задати параметри шрифту		Шрифт, його розмір та спосіб написання
	Style		Graphical		Задає стиль управління
Command 4	BackColor		Вибрати з палітри		Колір фону
	Caption		Вихід		Текст напису
	Font		Задати параметри шрифту		Шрифт, його розмір та спосіб написання
	Style		Graphical		Задає стиль управління

Продовження таблиці 7.1

1	2	3	4
Shape 1	BackColor	Вибрати з палітри	Задає колір фону
	BackStyle	Opaque	Об’єкт не прозорий
	BorderColor	Вибрати з палітри	Колір рамки
	BorderWidth	2	Товщина рамки
	FillColor	Вибрати з палітри	Колір штрихування
	FillStyle	Diagonal Cross	Стиль штрихування - діагональ
	Shape	Square	Об’єкт має форму овалу

Програмний код кнопки "Переміщення вниз"

Private Sub Command1_Click()

Shape1.Move Shape1.Left, Shape1.Top + 300

End Sub

Програмний код кнопки "Переміщення вправо"

Private Sub Command2_Click()

Shape1.Move Shape1.Left + 300

End Sub

Програмний код кнопки "Переміщення по діагоналі вліво вверх"

Private Sub Command3_Click()

Shape1.Move Shape1.Left - 300, Shape1.Top - 300

End Sub

Програмний код кнопки "Вихід"

Private Sub Command4_Click()

End

End Sub

Приклад 7.2. Створити форму з об’єктом PictureBox, в якому в лівому верхньому куті розмістити Shape (овал)

Задати наступні властивості об’єкту Shape:

Back Color колір фону

Back Style = Opaque непрозорий

Border Color колір рамки

Border Width товщина рамки

Fill Style стиль заповнення (горизонтальне, вертикальне або діагональне)

Fill Color колір заповнення

Shape = 2 Oval овал

До форми додати командні кнопки Старт та Стоп.

1.Створити програмний код, за яким здійснювалось би переміщення овалу кожного разу при клацанні мишею кнопки Старт на 1000 (твіпів) одиниць (1 одиниця = 1/20 крапки принтеру)

2.При натиснутій лівій кнопці миші на Picture Box овал переміщувався б в точку з координатами 250,250

3.При відпусканні лівої кнопки миші овал повертався б в точку 0,0

4.При клацання кнопки Стоп закінчувалась би робота проекту

Програмний код кнопки Старт

Private Sub Command1_Click()

Shape1.Move Shape1.Left + 1000, Top - 500

End Sub

Програмний код кнопки Стоп

Private Sub Command2_Click()

End

End Sub

Програмний код переміщення овалу в задану точку при натиснутій та утримуваній кнопці миші

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Shape1.Move Left + 250, Top - 250

End Sub

Програмний код переміщення овалу на початок при відпусканні кнопки миші

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Shape1.Move 2, 2

End Sub