End Sub

End Sub

Timer1

Enabled — False

Interval — 75

У вікні Code для кожного об'єкта додають такі програмні оператори:

Private Sub Command1_Click()

Timerl. Interval = 75

Timerl.Enabled =True

Private Sub Command2_Click()

Timer1.Enabled = False

Private Sub Timer1_Timer()

Picture1.Move Picture1.Left + 25, Picture1.Top+0

Програма працює під керуванням таймера. Перша кнопка активізує його дію, починається рух зображення на екрані дисплея; друга кнопка зупиняє таймер, при цьому процедура оброблення дії таймера припиняється (Private Sub Timerl_Timer()).

Екранна форма має вигляд, показаний на малюнку.

Мал. 4. Екрана форма рухомого об'єкту

Створення графічних зображень і робота з ними

Графічні зображення застосовуються для вдосконалення візуального вигляду екранної форми, створення спеціальних ефектів за допомогою анімації, створення графічних командних кнопок, додання дії «перетягнути та залишити» тощо.

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

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

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

Наприклад:

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

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

<== попередня сторінка	\|	наступна сторінка ==>
End Sub	\|	Сутність комунікативної компетенції.

Не знайшли потрібну інформацію? Скористайтесь пошуком google:

Генерація сторінки за: 0.004 сек.