Роздрукувати сторінку
Главная \ Методичні вказівки \ Методичні вказівки \ 1524 Лабораторна робота 8 на тему VB, Програмування кнопок та Робота з об'єктами

Лабораторна робота 8 на тему VB, Програмування кнопок та Робота з об'єктами

« Назад

Лабораторна робота №8

Тема: VB. Програмування кнопок. Робота з об'єктами: форма, текстове поле, зображення, кнопка.

Мета: Навчитися створювати форму з даними про себе і двома зображеннями, які перекривають один одного і повинні з'являтися в результаті натиснення на відповідні кнопки. Ознайомитися з об’єктами та властивостями форм.

Завдання

1. Завантажте середовище візуального програмування Visual Basic:

Пуск → Програми → Microsoft Visual Studio 6.0  →  Microsoft Visual Basic 6.0

2. У вікні New Project виберіть Standard EXE => Відкрити. На екрані буде відкрито декілька вікон, зокрема:

- головне вікно Project l-Microsoft Visual Basic [design], в якому знаходяться панель інструментів і головне меню;

- вікно форми Project l-Form l(Form), в яке виводитимуться результати роботи майбутньої програми;

- палітра компонентів (вікно без назви) з піктограмами візуальних об'єктів.

3. Активізуйте ще два вікна Visual Basic:

- вікно властивостей Properties Window із значеннями властивостей активного об'єкту.

- вікно тексту програми Project l-Form l(Code).

4. Запустіть програму Project 1 на виконання і розгляньте вікно порожньої поки що форми. Запустити програму можна декількома способами:

- використовуючи команду Run => Start головного меню;

- клацнувши на кнопці Start ►   панелі інструментів;

- натиснувши функціональну клавішу F5.

5. Виконайте наступні дії:

- максимізуйте вікно,

- відновіть його до попереднього розміру,

- мінімізуйте і знову розверніть вікно,

- перемістіть на робочому столі і задайте його розміри,

- викличте системне меню (Alt + пропуск).

6. Візуально ознайомтеся з властивостями форми Width і Height.

Змінюйте розміри форми за допомогою миші. Переконаєтеся, що зміна розмірів форми веде до зміни її властивостей Width і Height (ширина і висоти форми) у вікні властивостей Properties-Form 1.

Переглядати або міняти значення властивостей об'єктів найзручніше на закладці Categorized вікна Properties, де вони згруповані пo своєму призначенню. На закладці Alphabetic цього вікна властивості об'єктів розміщені в алфавітному порядку. Виключенням є властивість Name - ім'я об'єкту.

7. Поміняйте колір фону форми.

Для цього у вікні властивостей форми в рядку BackColor за допомогою випадного меню ▼. задайте значення кольору фону одним із способів:

- на закладці System;

- на закладці Palette безпосередньо виберіть колір фону.

8. Запустіть програму на виконання ще раз.

9. Вставте у форму текстове поле (об'єкт типу Label) з текстом "Анкета студента".

10. Двічі клацніть мишею на піктограмі Label (A) палітри компонентів. Розташуєте вставлений об'єкт, наприклад, так, як показано на мал.1, перетягуючи його мишею. Якщо об'єкт Labell не виділений, активізуйте його і у вікні Properties задайте значення властивості Caption з Label 1 на текст "Анкета студента" без лапок. Задайте значення властивості AutoSize цього об'єкту True. Задайте значення властивості Font (шрифт) цього поля на такі:

Font  : Times New Roman Cyr (або MS Sans Serif);

Font style : Bold; : 18;

Задайте колір підпису, вказавши значення властивості ForeColor.

11. Аналогічно вставте у форму ще декілька текстових полів з вашими біографічними даними.

Один з варіантів розміщення текстових полів показаний на мал.2.

12. Вставте у форму об'єкт типу Image (малюнок).

Для цього клацніть один раз лівій клавішею миші на піктограмі Image - палітри компонентів і, наприклад, в нижньому правому кутку форми обведіть контур майбутнього зображення (фотографії). У разі потреби поміняйте розмір форми або вставленого об'єкту і добийтеся якнайкращого розташування на ній створених раніше об'єктів. Міняти розміри об'єкту можна методом їх "розтягання" за маркери (чорні габаритні квадратики). Запам'ятаєте ім'я, яке Visual Basic привласнить цьому об'єкту (значення властивості Name), або заміните його. За умовчанням цьому об'єкту буде привласнено стандартне ім'я Imagel.

13. Вставте перше зображення за допомогою властивості Picture (ілюстрація) об'єкту Imagel.

Для цього спочатку виділіть об'єкт і задайте значення True його властивості Stretch. Активізуйте рядок Picture у вікні Properties. Клацнувши на кнопці ▬, викличте діалогове вікно вибору малюнка Load picture, де вкажіть повний шлях до файлу з зображенням (С:\ Program Files \ Microsoft Office \ Clipart \ Popular.)

14. Помістіть друге зображення на перше, вставивши у форму ще один об'єкт типу Image.

Один з варіантів розташування фотографії показаний на мал.4. Вважатимемо, що цей об'єкт має ім'я Image2.

15. Проекспериментуйте з властивістю Visible (видимість) обох зображень, кожного разу виконуючи запуск програми на виконання.

Встановіть значення False властивості Visible для обох зображень.

16. Вставте у форму кнопки для почергового відображення фотографій - два об'єкти типу CommandButton з іменами Соmmandl і Command2.

Піктограма об'єкту типу CommandButton (кнопка) знаходиться на палітрі компонентів Visual Basic. Зробіть підписи на кнопках відповідно до зображень, які ви обирете з галереї (властивість Caption)  "Зображення №1" і "Зображення №2" відповідно. Виберіть на ваш розсуд шрифт для підписів кнопок. Один з варіантів розташування кнопок показаний на мал.4.                       

17. Запрограмуйте кнопку "Зображення №1" так, щоб після натиснення на неї у формі з'явилося зображення.

Для програмування кнопки Commandl необхідно двічі клацнути на ній лівій клавішею миші. В результаті активізується вікно тексту програми із заготовкою процедури CommandlClick, яка оброблятиме подію клацання на кнопці Command 1:

Private Sub Commandl_Click()

...

End Sub

У заготовку необхідно вставити текст програми реакції на цю подію. Процедура матиме такий вигляд:

Private Sub Commandl_Click()

Imagel.Visible = True

'Зображення №1 стає видимою

Image2.Visible = False

'Зображення №2 стає невидимою

End Sub

За допомогою даної процедури властивість видимості об'єкту Imagel включаємо, і цією ж властивість об'єкт Image2 вимикаємо. Для кнопки "Зображення №2" дії будуть протилежні.

Текст процедури для цієї кнопки матиме вигляд:

Private Sub Command2_Click()

Imagel.Visible = False

'Портретна фотографія стає невидимою

Image2.Visible = True

'Художня фотографія стає видимою

End Sub    

18. Запустіть програму на виконання і переконайтеся, що кнопки виконують свої функції. Закрийте вікно програми "Анкета студента".

19. Збережіть створену програму на своєму системному диску у папці ПР_Програмування_Прізвище з назвою Практична_робота_№8_Прізвище.

Для цього виберіть команду головного меню File_=> Save Project as (Зберегти проект як) або натисніть на кнопку  Save Project на панелі інструментів. У першому рядку вікна, яке з'явиться ("Save File As") під заголовком "Save in:" (Папка:), за допомогою випадного меню  виберіть робочий диск, після чого знайдіть і відкрийте свою папку. Задайте ім'я файлу форми, заздалегідь видаливши запропоноване комп'ютером ім'я Form l => Save. У наступному вікні "Save Project As" введіть ім'я файлу проекту, видаливши запропоноване комп'ютером ім'я Project l => Save.

 

Контрольні питання

  1. Що таке VBA?

  2. Яку структуру має вікно редактора VBА ?

  3. Для чого призначене вікно провідника проекту?

  4. Яке призначення вікна властивостей об’єктів? Яку воно має структуру?

  5. Які основні об’єкти VBA?

  6.  Що таке властивість об’єкта?

  7. Що таке метод об’єкта?

  8. Що таке форма користувача та для чого вона призначена?

  9. Які основні властивості форми?

  10. Які основні події форми? Коли вони відбуваються?

  11. Які основні події мишки? Коли вони відбуваються?

  12. Які різновиди елементів управління формою існують у VBА?

  13. З якою метою використовують у формах написи?

  14. Яка властивість задає значення напису?

  15. З якою метою використовують у формах командні кнопки?

  16. Які основні події командних кнопок? Коли вони відбуваються?

  17. Яку структуру має процедура?

  18. Як звернутись у коді процедури до певної властивості елемента управління?

З повагою ІЦ "KURSOVIKS"!