Page 81 - 4450

Case 3
Def = "готувати"
Case 4
Def = "спати"
Case 5
Def = "платити, оплачувати"
Case 6
Def = "писати"
End Select
MsgBox (Def),, List1.Text
End Sub
Тепер ви можете замінити функцію MsgBox додатковою
формою, що буде використовуватися для відображення
інформації.
1. У меню Project (Проект) клацнути на команді Add
Form(Додати форму). З'явиться діалогове вікно Add Form
(Додавання форми) у який на вкладці New (Нова)
відображено шість шаблонів форм.
2. Клацнути на кнопці Open (Відкрити), щоб відкрити
порожню форму в проекті. Порожня форма з ім'ям Form2
з'явиться в програмному оточенні.
3. Зменшити розміри другої форми до невеликого
прямокутного діалогового вікна. Варто зменшити розміри
саме вікна Form2, а не вікна Project1, у якому знаходиться
форма.
4. Встановити компоненту Image (Зображення) на панелі
інструментів, потім створити середніх розмірів рамку для
зображення в лівій частині форми. Це поле буде
використовуватися для відображення малюнка італійського
прапора.
5. Встановити компоненту Label (Поле мітки) у середині
форми.
6. Встановити компоненту TextBox (Текстове поле),
потім необхідно створити велике текстове поле нижче поля
виведення в середині форми.
7. Встановити компоненту CommandButton (Командна
кнопка), потім необхідно створити командну кнопку в правій
частині форми. Встановити для вашої нової форми такі
властивості:

79