2. Графічні керуючі елементи Image та PictureBox

Ці еле­менти застосовуються для завантаження існуючих фай­лів із зображеннями. Visual Basic підтримує такі фор­мати графічних файлів, як BMP, DIB, ICO, CUR, WMF, EMF, GIF, JPEG, JPG.

При використанні елемента Image у формі створюється фрейм. Щоб уставити в нього зображення, треба активізу­вати властивість Picture і вибрати зображення. Властивість Stretch повинна мати значення True для автоматичної змі­ни розміру зображення при вміщенні у фрейм. При цьому зображення можуть бути викривлені. У програмі для за­вантаження зображення використовують оператор

Image1.Picture = LoadPicture (<ім'я файла>)

Наприклад:

Imagel.Picture = LoadPicture ("C:\Vb6sbs\Priklad.BMP")

Елемент PictureBox створює об'єкт, в який, крім зображення, можна також додавати інші графічні об'­єкти (наприклад, Line або Shape). Переміщення об'єк­та відбувається разом із вміщеними в нього іншими об'­єктами. Початковий розмір зображення об'єкта PictureBox, на відміну від елемента Image, змінювати не можна, але після встановлення значення True у вла­стивість AutoSize розмір зображення буде збігатися із розміром самого елемента.

Для видалення малюнка з об'єкта варто виділити цей об'єкт, потім у вікні властивостей вибрати властивість Picture, подвійним щигликом на значенні цієї властивості виділити його і, нарешті, натиснути клавішу Delete.

У період виконання можна виконати завантаження зображення декількома способами.

Наприклад, можна використовувати функцію LoadPicture для присвоєння повного імені файлу властивості Picture. Наступний оператор завантажує файл bmp1.bmp в елемент керування pic1:

pic1.Picture = LoadPicture(“c:\Pict\bmp1.bmp”)

Наприклад, також можна скопіювати зображення з одного об'єкта в іншій. Наступний оператор копіює графіку з елемента керування – графічне поле pic1 в елемент керування – малюнок img1:

img1.Picture = pic1.Picture

Для видалення зображення в період виконання без заміни його іншим зображенням можна скористатися функцією LoadPicture.

Наступний оператор видаляє зображення з графічного поля img1:

img1.Picture = LoadPicture(“”)

3. Використання графічних методів

Для створення графіки Visual Basic, на додаток до графічних елементів керування, має кілька графічних методів для застосування у формі і графічному полі (PictureBox), приведених далі в таблиці:

Ім'я методу	Призначення метода
Line	Малює лінію, прямокутник або заповнене вікно
Circle	Малює коло, еліпс або дугу
Cls	Очищає всю графіку і елементи виведеня методом Print.
PaintPicture	Зафарбовує графіку в довільно обраних місцях
Point	Повертає значення кольору обраної точки
Print	Друкує текст
Show	Забезпечує видимість тексту і графіки
Pset	Установлює колір окремої точки

У загальному вигляді синтаксис методу передбачає необов'язкову у багатьох випадках вказівку на те, до якого об'єкту метод застосовується, і має вигляд:

[об'єкт.] метод

Якщо параметр об'єкт не вказується, то за умовчанням як об'єкт приймається форма. Для спрощення записів параметр об'єкт найчастіше опускатимемо.

Графічні методи пов'язані з такими властивостями форми і інших элемен­тов управління, як Drawstyle і Drawwidth. Властивість

DrawStyle - визначає стиль ліній фігур: суцільні, невидимі, штрихові, пунктирні і тому подібне. Властивість

DrawWidth - визначає ширину ліній. На властивостях, пов'язаних з кольором, зупинемося далі.

Про графічні методи Show і Print було розказано раніше. Розглянемо методи, що залишилися, і приклади їх використання.

• Сls — очищає поверхню об'єктів (форми і елементів управління) від графіки і тексту.

Синтаксис:

Сls

• Pset — малює крапку на екрані монітора.

Синтаксис:

Pset [Step] (х, y) [, колір]

Параметри х і y — координати точки. Параметр колір — колір крапки. Ключове слово Step вказує на те, що координати х і y є приростами до координат поточної точки — останньої крапки, уста­новленной графічними методами при виконанні коди програми.

• Line — графічний метод. Будує лінії і прямокутники.

Синтаксис:

Line [[Step] (x1, y1)] - [Step] (x2, y2) [, [колір][, B[F]]]

Параметри (x1, y1) і (х2, у2) — координати кінців відрізку прямої лінії або координати протилежних кутів прямокутника. Параметр колір вказує на колір мальованої фігури.

Параметр-константа B (від англ. box — прямокутник) встановлює режим малювання прямокутника. Параметр-константа BF (filled box — зафарбований прямокутник) забезпечує зафарбовування прямокутника усередині.

Приклад 1. Метод Line

Приклад програми з використанням методу Line наведений в листингу :

Private Sub Form_Load()

Show

DrawWidth = 2

1. Line (500, 1500) -(1000, 500)

2. Line -(1500, 1500)

3. Line Step(-1000, 500) -Step(1000, 1000)

4. Line (2500, 500) -(4000, 1500),, В

5. Line (2500, 2000) -(4000, 3000),, BF

CURRENTX = 440: CURRENTY = 700: Print 1

CURRENTX = 1250: CURRENTY = 700: Print 2

CURRENTX = 800: CURRENTY = 2000: Print 3

CURRENTX = 2100: CURRENTY = 700: Print 4

CURRENTX = 2100: CURRENTY = 2000: Print 5

End Sub

Приведена програма малює у формі показані на мал. 1 п'ять фігур. Номери фігур відповідають номерам рядків коду. Відрізок 2 як першу крапку використовує другу точку відрізка 1. Координати крайніх точок відрізку 3 формуються як прирост до останньої крапки відрізка 2 і до першої своєї крапки. Абсолютні координати відрізка 3 можна записати так:

3 Line (1500 - 1000, 1500 + 500) - Step (1000, 1000), або коротше:

Line (500, 2000) - (1500, 3000)

Мал.1. Малюнки, отримані з допомогою графічного методу Line

• Circle – малює кола, еліпси, дуги

Синтаксис:

Circle [Step] (х, у), радіус [, [колір] [, [початок дуги], [кінець дуги] [відношення] ]

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

Приклад 2. Метод Circle

Private Sub Form_Load()

Show

DrawWidth = 2

1 Circle (1000, 1000), 300

2 Circle Step(0, 1500), 550

3 Circle (2500, 1000), 300, , , , 0.3

4 Circle (2500, 2500), 550, , , , 3

5 Circle (4000, 2000), 700, , 0.8, 2.4

6 Circle (4000, 2000), 700, , -4, -5.5

CurrentX = 440: CurrentY = 700: Print 1

CurrentX = 400: CurrentY = 2000: Print 2

CurrentX = 2000: CurrentY = 1000: Print 3

CurrentX = 2100: CurrentY = 2700: Print 4

CurrentX = 4000: CurrentY = 1000: Print 5

CurrentX = 4000: CurrentY = 1800: Print 6

End Sub

Приведена програма малює у формі показані на мал. 2 шість фігур

Мал. 2. Малюнки, отримані з допомогою графічного методу Circle