. У
вікні, що з'явилося в текстовому блоці Caption (Напис) запишіть назва для меню
Вашого застосування, наприклад, «Малюнки». А в текстовому блоці Name (Ім'я) запишіть
ім'я меню в програмі, наприклад, Pictures. Це і є основні установки при
створення системи меню. Потім клацніть мишею по кнопці Next (Далі) для створення
наступного пункту меню. Впишіть для нього назву «1» та ім'я в програмі Pict1.
Клацніть мишею по кнопці «стрілка вправо», для того щоб цей рядок перетворити
в команду для меню «Малюнки». Аналогічним чином створіть наступні команди
меню. Для затвердження побудованого меню клацніть мишею по кнопці «Ok».
А
тепер необхідно провести обробку виборів меню. Якщо Ви запустіть
додаток, то команди меню працювати не будуть, тому що вони поки що є
порожніми. Наповнимо їх програмним кодом. Для чого на форми Вашого програми
натисніть на меню «Малюнки». Тут же випаде група команд. Натисніть на команду
«1». З'явиться вікно програмного коду для процедури Pict1_Click. У цю процедуру
переривання впишіть програмний код:
Picture1.Visible
= True
Picture2.Visible
= False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible
= False
Натисніть
на команду «2» і до процедури переривання Pict2_Click впишіть програмний код:
Picture1.Visible = False
Picture2.Visible = True
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible
= False
Аналогічним
чином заповніть програмним кодом процедури переривання для інших трьох
команд меню. Запустіть програму. Подивіться, як воно працює, по черзі
викликаючи за допомогою меню кожен з п'яти малюнків. Закрийте програму.
Розширимо
можливості меню даного продукту. Викличте вікно Menu Design (Розробка
меню). Натисніть на вільну рядок, наступну за пунктом меню «5». У текстовому
блоці Caption (Напис) запишіть назву для наступного меню програми,
наприклад, «Принтер». А в текстовому блоці Name (Ім'я) запишіть ім'я меню в
програмі, наприклад, Printer. Клацніть по кнопці Next (Далі) і по кнопці
«Стрілка вправо». У текстовому блоці Caption (Напис) запишіть назву для
команди другого меню «Друк». А в текстовому блоці Name (Ім'я) запишіть ім'я меню
в програмі, наприклад, Printer. Створити таку команду другого меню, для
якої в текстовому блоці Caption (Напис) запишіть назву для команди
«Вихід», а в текстовому блоці Name (Ім'я) запишіть ім'я меню в програмі,
наприклад, Exit. Для затвердження побудованого меню клацніть мишею по кнопці
«Ok». У меню «Принтер» натисніть на команду «Друк» і до процедури переривання
Priter_Click запишіть програмний код, який буде друкувати на папері
вміст вікна форми:
Form1.PrintForm
'Друк форми на папір
В
меню «Принтер» натисніть на команду «Вихід» і до процедури переривання Exit_Click
запишіть програмний код:
End 'закриття роботи програми
Запустіть
додаток. Виберіть один з малюнків і надрукуйте його на папері. Насолодившись
роботою в додатку, закрийте його за допомогою команди "Вихід". Збережіть проект
програми та створіть виконуваний EXE-файл.
А
тепер виготовте програму для своїх домочадців, в якому вони змогли б
помалювати. Створіть папку Lesson52. Запустіть Visual Basic. У процедуру
переривання Form_MouseDown запишіть рядок:
Line
- (X, y) 'малювання лінії
Запустіть
додаток. Спробуйте малювати. Зупиніть роботу додатку. Замініть
програмний код процедури Form_MouseDown рядками:
If
Button And Then Line 1 - (x, y) 'малювання лінії
If Button And Then PSet 2 (x, y) 'малювання точки
Тепер
правою кнопкою миші можна малювати точки, а лівою - лінії, а головне при такому
невеликому ускладненні програми можна почати малювати з будь-якої точки вікна
додатки. Втім, спробуйте зобразити будинок і дерево на деякій відстані
один від одного.
Для
дзвінка у Вашому додатку набору кольорових олівців побудуйте меню «Колір
олівця ». У меню Window (Вікно) виберіть Menu Design (Розробка меню). У
вікні, що з'явилося Menu Design Window (Вікно розробки меню) запишіть у текстовому
блоці Caption (Напис) назву майбутнього меню «Колір олівця». Текстовий блок
Name (Ім'я) заповніть назвою майбутньої процедури Color. Покажчиком миші
клацніть по кнопці Next (Далі) і за стрілкою «Вправо». У текстовий блок Caption
впишіть «Синій», а в текстовий блок Name запишіть внутрішнє ім'я меню - Blue.
Аналогічним чином доповніть ще два кольори: Red - «Червоний» і Green --
«Зелений». Для затвердження побудованого меню натисніть на кнопку «Ok». Для
пожвавлення меню наповніть його програмним кодом. У вікні форми Form1 натисніть на
меню «Колір олівця», а потім на команду «Синій». У вікні
програмних тверджень в процедуру Blue_Click впишіть рядок:
ForeColor
= RGB (0, 0, 255) 'синий цвет
В
процедуру Red_Click помістіть рядок:
ForeColor
= RGB (255, 0, 0) 'червоний колір
А
в процедуру Green_Click помістіть рядок:
ForeColor
= RGB (0, 255, 0) 'зелений колір
Властивість
ForeColor (Передній колір) приймає різні значення шляхом змішування трьох
основних кольорів - червоний, зелений, синій. Кожен з основних кольорів задається
цілим числом в межах від 0 до 255.
Запустіть
програму на виконання. Порісуйте в ньому, використовуючи різні кольори.
Розширимо
можливості меню. Викличте вікно розробки меню. Натисніть покажчиком миші на
вільну рядок, наступну за рядком «Зелений». У текстовому блоці Caption
(Напис) запишіть назву для наступного меню програми, наприклад,
«Дія». А в текстовому блоці Name (Ім'я) запишіть ім'я меню в програмі,
наприклад, Action. Клацніть мишею по кнопці Next (Далі) і по кнопці «стрілка
праворуч ». У текстовому блоці Caption (Напис) запишіть назву для команди
другий меню «Очистити». А в текстовому блоці Name (Ім'я) запишіть ім'я меню в
програмі, наприклад, CleSc. Прийміть меню, клацнувши мишею по кнопці «Ok». На
формою додатка натисніть на меню «Дія» і «Очистити». З'явиться вікно
програмного коду для процедури CleSc_Click. У цю процедуру впишіть рядок,
що складається з одного оператора що відповідає за очищення вікна програми:
Cls 'очищення екрана
Помістіть
в меню команду, яка дозволить користувачеві роздруковувати його малюнки на
папір, так як це Ви зробили в попередньому додатку. Відмінність
полягати в тому, що для властивості форми AutoRedraw (Автоматичне перерісовиваніе)
Вам необхідно буде встановити значення True (Істина). В іншому випадку
малюнок не з'явиться на папері! Завершіть побудова меню командою «Вихід».
Властивості форми Caption (Напис) надайте значення «Альбом для малювання».
Перевірте роботу додатку. Збережіть новостворений проект і створіть для
нього виконуваний EXE-файл. Запропонуйте кому-небудь помалювати у Вашому
додатку.
Розширте
можливості палітри програми «Альбом для малювання». Для цього викличте вікно
розробки меню (Menu Design Window). Скориставшись кнопкою Delete, видаліть
із системи меню програми три раніше створені Вами процедури переривання:
Blue_Click, Red_Click і Green_Click. У процедуру переривання Color_Click впишіть
програмний код:
CMDialog1.Action
= 3 'активізація вікна діалогу ВИБІР ЦВЕТА
ForeColor
= CMDialog1.Color 'передача вибраного кольору
Під
другому рядку властивості ForeColor (Передній колір) для об'єкта Form1
присвоюється значення вибраного кольору у вікні загального діалогу «Вибір кольору».
Тепер кількість кольорів для малювання у цьому додатку буде обмежено
тільки можливістю відеосистеми Вашого комп'ютера. Як правило, це більш
шістнадцяти мільйонів системних кольорів.
Відкомпілюйте
проект програми. Перевірте отриманий EXE-файл в роботі.
Самостійно
виготовте у цьому додатку пункт меню з назвою «Колір паперу» для
зміни кольору фону малювання. Для цієї мети використовуйте властивість BackColor
(Колір фону) об'єкта Form1 (Форма).
Домашнє завдання
1.
Створіть додаток, з якого можна буде запускати декілька відео-файлів з
допомогою меню.
2.
Продовжуйте роботу над розширенням меню вищевказаного програми: зробіть так,
щоб з меню можна було викликати показання годинника комп'ютера, вивести поточну
дату.
3.
Розширте колірну палітру в додатку «Альбом для малювання».
4.
Зробіть так, щоб роботу в «Альбомі для малювання» супроводжувала спокійна
мелодія. Мультимедійний об'єкт MMControl повинен бути невидимим.
5.
У меню «Альбому для малювання» помістіть команду «Про програму», яка буде
викликати окреме вікно, що містить відомості про автора.
Список літератури
Для
підготовки даної роботи були використані матеріали з сайту http://bc.boom.ru/
