Розміщення картинки в програмі

Володимир Коробицын

Пожвавлення картинок. Виготовлення електронної кнопки. Створення виконуваного EXE-файлу

На одному з дисків вашого комп'ютера, наприклад, на диску C, створіть папку з довільною назвою, припустимо Lesson11. Запустіть Visual Basic. У середній частині екрану Ви побачите вікно форми з ім'ям Form1. Це і є той самий фундамент Вашого майбутнього програми для Windows.

Для початку на форму помістіть малюнок. У лівій частині екрана розташоване вікно інструментів. Якщо Ви його не бачите, виберіть в меню Window (Вікно) команду Toolbox (Вікно інструментів). Наведіть вказівник миші на значок «Малюнок», який розташований у вікні інструментів, і клацніть по ньому лівою кнопкою миші. Потім помістіть вказівник миші на вільне поле вікна форми Form1 в його верхньому лівому куті. Натисніть на ліву кнопку миші і, не відпускаючи її, перемістіть покажчик у бік правого нижнього кута, розширюючи що з'явився прямокутник до довільних розмірів. Відпустіть кнопку миші.

Таким чином на форму Ви помістили об'єкт PictureBox (Вікно малюнка) з ім'ям Picture1 (Малюнок перший). Імена об'єктів можна змінювати. Ми протягом всієї книги будемо використовувати ті імена об'єктів, які буде пропонувати для них Visual Basic за замовчуванням. Надалі для простоти опису об'єктів будемо називати їх по іменах, не згадуючи спільної назви об'єкта.

В правій частині екрана розташоване вікно Properties (Властивості). Якщо в даний момент вікно приховано, виберіть в меню Window (Вікно) команду Properties (Властивості) або натисніть клавішу . У вікні Properties (Властивості) клацніть два рази лівою кнопкою миші по напису Picture (Малюнок). У новоствореному вікні, що з'явилося Load Picture (Завантаження малюнка) виділіть файл малюнка 01.wmf. Клацніть на ім'я цього файлу два рази. Зображення яблука виявиться на формі Form1, виділене маркерами - чорними квадратиками невеликих розмірів. Відкоригують розміри малюнка на Ваш розсуд. Для чого схопіть будь-який з маркерів вікна малюнка і проведіть миша в натиснутому стані в необхідному напрямку. Для перетягування малюнка за формою цілком натисніть на полі картинки і, не відпускаючи кнопку миші, перемістіть картинку. Звільніть кнопку миші. Бажано, щоб зображення яблука розташувалося в лівій половині форми Вашого застосування. У вікні Properties (Властивості) виберіть властивість BorderStyle (Граничний стиль) і два рази клацніть по його написи. Дана властивість об'єкта Picture1 (Малюнок) набуде значення 0-None (Немає), при цьому межа малюнка зникне.

Запустіть Вашу програму на виконання, для чого клацніть один раз лівою кнопкою миші на значку «Запуск програми», розташованому на панелі інструментів або натисніть на клавішу . Можна також на панелі інструментів вибрати в меню Run (Пуск) команду Start (Старт). Якщо на панелі інструментів не видно кнопки зі значками, то в меню View (Перегляд) виберіть команду Toolbar (Набір засобів). Зупиніть роботу програми, натиснувши в заголовку програми на кнопку «Закрити» або сполучення клавіш . Аналогічним чином на форму Вашого програми помістіть другий малюнок, використовуючи тепер файл 02.wmf. Малюнок вишні розташуйте в правій половині форми. Наведіть вказівник миші на зображення яблука і клацніть два рази лівою кнопкою миші - з'явиться вікно програмного коду з процедурою Picture1_Click. Назва процедури зазвичай складається з імені об'єкта та імені можливого для даного об'єкта події. Ця процедура буде викликана під час роботи програми при здійсненні такої події, як одиночний клацання миші по зображенню яблука. У цю процедуру переривання запишіть два рядки:

Sub Picture1_Click () 'початок роботи процедури переривання

Picture1.Visible = False 'приховати перший малюнок

Picture2.Visible = True 'показати другий малюнок

End Sub 'завершення переривання

Для негайного виклику вікна програмних тверджень в меню View (Перегляд), натисніть команду Code (Програмний код) або клавішу .

Перша рядок для об'єкта Picture1 (Малюнок) встановлює його властивості Visible (Видимість) значення False (Брехня). Це програмне затвердження зробить яблуко «Невидимим». Другий рядок покаже вишню. Для об'єкта Picture2 в процедуру Picture2_Click помістіть два рядки протилежної дії:

Sub Picture2_Click ()

Picture1.Visible = True

Picture2.Visible = False

End Sub

Запустіть програму. По черзі Понатискайте лівою кнопкою миші на зображення яблука і вишні. Зупиніть програму.

Таким чином, управління об'єктами в процесі роботи програми Visual Basic відбувається шляхом зміни їх властивостей. Щоб змінити властивості об'єкта цього властивості присвоюються різні значення у вікні для введення програмного коду за формулою:

Об'ект.Свойство = Значення

Спочатку записується ім'я об'єкта, потім його властивість, причому вони розділяються крапкою. Після вказівки властивості об'єкта ставиться знак «привласнити значення» і на останньому місці записується значення властивості об'єкта. Як бачите знак «=» тут несе зовсім іншу смислове навантаження, на відміну від його призначення в математики.

Натисніть один раз на вільний від малюнків полі форми Form1 і у вікні властивостей об'єкта виберіть властивість Caption (Заголовок) і змініть напис рядка заголовка вікна Form1 на довільну, наприклад: «Моє перше додаток для Windows». Збережіть Вашу програму в папці Lesson11, для цього в меню File (Файл) виберіть команду Save Project As ... (Зберегти проект як ...). Підтвердіть пропоновані імена файлів Form1.frm (Перше вікно додатка) і Project1.mak (Проект програми). Можна дати інші імена, дотримуючись правил DOS. Типи даних файлів змінювати неприпустимо.

Відкомпілюйте програму, тобто створіть виконуваний EXE-файл. Для чого на панелі інструментів виберіть меню File, а потім команду Make EXE File ... . У процесі компіляції Visual Basic зливає окремі файли-компоненти проекту програми в єдиний файл з розширенням EXE. Компіляція проекту програми - це процес народження самостійного EXE-файлу. З цього моменту дитина виходить з підпорядкування свого з батьків на ім'я Visual Basic.

Завершіть роботу в Visual Basic, натиснувши в його заголовку кнопку «Закрити» або поєднання клавіш . Відкрийте папку Lesson11. У ній Ви знайдете файли: Project1.mak, Form1.frm і Project1.exe. Запустіть свій додаток Project1.exe. Попрацюйте в ньому. Закрийте програму. При бажанні Ви можете перейменувати це фото, але розширення повинно залишитися незмінним - EXE.

А тепер розглянемо деякі прийоми найпростішої анімації. Створіть папку Lesson12 для наступного програми. Запустіть Visual Basic. Вікно форми Form1 збільшіть по ширині майже до повної ширини екрана Вашого дисплея, а по висоті зменшіть приблизно в два рази. У праву половину форми помістіть малюнок з файлу 01.bmp, так щоб передня частина автомобіля було видно з-за правого краю форми. Викличте вікно програмного коду для цього малюнка і в процедуру Picture1_Click впишіть рядки:

For n = 1 To 500 'початок циклу

Picture1.Left = Picture1.Left -- 15 'пересування вперед

Next 'завершення циклу

Цикл For-To-Next виконає рядок «Picture1.Left = Picture1.Left - 15» п'ятсот разів, що призведе до поступового пересуванню картинки ліворуч, так як координата його по горизонталі щоразу буде зменшуватися на 15 одиниць (або на один піксель екрану).

Запустіть програму. При одиночному кнопці миші по автомобілю, останній буде переміщатися вперед. Закрийте програму. У процедуру Form_Click запишіть:

Picture1.Left = 7920 'повернення на стартову позицію

Left - Це одне з численних властивостей об'єкта Picture1, що задає значення координати лівого краю цього об'єкту. Щоб змінити розташування по вертикалі існує властивість Top, що відповідає за значення верхнього краю об'єкту. Цими властивостями володіють і інші об'єкти в Visual Basic.

Запустіть додаток. Примусьте автомобіль зникнути за межами вікна Вашого застосування. Клацніть по вільному полю вікна - автомобіль негайно займе стартову позицію. Подумайте, як це здійснює рядок у процедурі Form_Click, яка обробляється при одиночному щиглику покажчиком миші на форму. Знову приведіть автомобіль у рух і поверніть його в початковий стан. Закрийте програму. Збережіть проект Вашої програми в папці Lesson12. Створіть виконуваний файл і збережіть його в тій же папці. Додаток готове. На наступному уроці Ви озвучите це додаток.

Для виклику вікна проекту в меню Window (Вікно) виконайте команду Project (Проект). У цьому вікні Ви отримаєте відомості про склад проекту програми, а при необхідності з допомогою кнопок "View Form» (Перегляд форми) і «View Code» (Перегляд програмного коду) можете викликати на екран форму програми та її програмний код.

Розглянемо ще один анімаційний прийом - масштабування зображення. Для віндовскіх «Гумових» метафайлів з розширенням WMF (Електронні картинки) можна використовувати об'єкт Picture (Малюнок) або об'єкт Image (Образ), а для файлів точкових малюнків з розширенням BMP масштабування можливо лише за допомогою об'єкта Image (Образ).

Створити папку Lesson13 для наступної програми. Запустіть Visual Basic. У вікні властивостей форми Form1 виберіть властивість BackColor (Колір форми) та встановити нього значення кольору - сірий. Для цього клацніть два рази в властивості BackColor і в вікні, що з'явилося палітри кольорів виберіть сірий колір.

Для розміщення об'єкта Image1 (Образ) на формою додатка клацніть по значку об'єктів типу Image (Образ) у вікні об'єктів. Потім натисніть мишкою на полі Вашої форми і, не відпускаючи кнопки, перемістіть покажчик у довільному напрямку по діагоналі. Відпустіть мишку. У вікні властивості об'єкта виберіть властивість Stretch (Зміна розміру) і встановіть для нього значення True (Істина). Тут ж виберіть властивість Picture (Малюнок) і клацніть по ньому два рази. Через вікно, що з'явилося завантажте малюнок з файлу 02.bmp у форму Form1.

В вікні об'єктів клацніть по значку «Командна кнопка», потім встановіть електронну командну кнопку Command1 на форму і підберіть відповідні для неї розміри. Дані операції схожі на дії над об'єктами Picture (Малюнок) і Image (Образ). Клацніть вказівником миші по новоствореному об'єкту два рази і в процедуру Command1_Click впишіть програмні твердження:

Image1.Width = Image1.Width * 1.25 'збільшення ширини

Image1.Height = Image1.Height * 1.25 'збільшення висоти

Перша рядок при одиночному клацнути по командній кнопці збільшить значення властивості Width (Ширина) об'єкта Image1 в 1,25 рази. Другий рядок спрацює таким же чином для властивості Height (Висота). У результаті розміри зображення збільшаться на 25%.

В вікні властивостей об'єкта Command1 виберіть властивість Caption (Заголовок) і надайте йому значення «Збільшити», а властивості FontBold (Жирний шрифт) значення False (Брехня). Аналогічним чином створіть ще дві командні кнопки: «Зменшити» і «Вихід». Для кнопки Command2 в процедуру Command2_Click впишіть рядки, які будуть зменшувати розміри фотографії на 25%:

Image1.Width = Image1.Width / 1.25 'зменшення ширини

Image1.Height = Image1.Height/1.25 'Зменшення висоти

Для кнопки Command3 в процедуру Command3_Click запишіть програмне твердження:

End 'завершення роботи програми

Це затвердження при одиночному клацнути по командній кнопці "Вихід" буде завершувати роботу Вашого застосування.

Запустіть програму. По черзі, по кілька разів натискати на кнопки «Збільшити» і «Зменшити», спостерігаючи за зміною розмірів фотографії. Для закінчення роботи програми клацніть по створеній Вами електронної кнопці "Вихід". Збережіть проект програми та створіть для нього виконуваний EXE-файл. Перевірте цей файл в роботі.

Домашнє завдання

1. Виготовте додаток, в якому м'яч буде підстрибувати вгору і потім повертатися назад при натисканні на електронну кнопку.

2. Створіть додаток, в якому будь-який малюнок буде зменшуватися в розмірах при натисканні на нього вказівником миші і збільшуватися при натисканні на вільний від цього малюнка полі вікна форми.

3. В об'єкта Form1 (Форма) самостійно досліджуйте його властивість BorderStyle (Граничний стиль), що може приймати чотири значення від 0 до 3.

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

Створити папку з довільною назвою, використовуючи тільки латинські букви і цифри. Скопіюйте в цю папку створений Вами ЕХЕ-файл і бібліотеку динамічних зв'язків Vbrun300.dll. Якщо ваша заявка містить елементи мультимедіа (звук, музика, відео, анімація), то в цю ж папку необхідно скопіювати файл Mci.vbx і мультимедійні файли з розширеннями WAV, MID, RMI, AVI, які Ви задіяли у програмі. Якщо програма використовує вікно загального діалогу, необхідний буде файл Cmdialog.vbx. Пам'ятайте, що файли малюнків з розширеннями BMP і WMF копіювати не треба, так як Visual Basic в процесі компіляції автоматично поміщає їх у виконуваний EXE-файл. Якщо обсяг папки за розміром виявиться більше ємності дискети, то скористайтеся будь-яким архіватором, наприклад WinRAR. Цей архіватор дозволить Вам стиснути додаток, при необхідності розбити архів на дискети, а при бажанні файл архіву можна зробити саморазворачівающімся.

Збереження вихідних текстів Ваших програм

Всі вихідні тексти програм Ваших додатків для Windows необхідно самим ретельно зберігати. Вони можуть знадобитися Вам у тих випадках, якщо з'явиться бажання змінити що-небудь в раніше написаному додатку або Ви захочете використовувати частини цього додатка у своїх нових роботах. Крім того, дискета з вихідними текстами програм стане своєрідною скарбничкою Ваших знань в Visual Basic. Прийде час, коли знадобиться освіжити в пам'яті Ваші колишні досягнення і тоді не потрібно буде починати все спочатку. Для збереження текстів програм достатньо скопіювати на надійний носій файл проекту Вашого додатки з розширенням MAK та файли форм цього додатка з розширенням FRM. Якщо проект програми містить файли модулів з розширенням BAS, то їх теж потрібно буде скопіювати. При збереженні додатків створюйте окрему папку для кожного з них. Якщо Ваша програма є мультимедійним, то задіяні в ньому файли музики, відео, звуків помістіть в цю ж папку.

Список літератури

Для підготовки даної роботи були використані матеріали з сайту http://bc.boom.ru/