УМал. 2.9. Вдосконалене mdi – додаток.
другому рядку (Dim frm As New frmChild)
зустрічається оператор Dim. Зазвичай він
визначає розмірність масиву, але в
даному випадку описує змінну з ім'ям
frm, яка створюється на основі форми
frmChild. Ключове слово New повідомляє Visual
Basic про те, що йдеться про нову форму, а
не про одну з форм, створених в цій
процедурі.
Оскільки значення змінної Counter запам'ятовується між викликами процедури, його можна збільшити наступним рядком:
Counter = Counter + 1
Наприклад, якщо значення Counter дорівнювало 3, то оператор присвоїть їй поточне значення «3 плюс 1», тобто 4. Раз змінна Counter оголошена з ключовим словом Static, нове значення буде збережено, так що при наступному виклику процедури змінної Counter буде присвоєно значення 5, потім - 6 і т. д. Наступний оператор (frmCaption = «Дочірня форма MDI» & Counter) замінює вміст властивості Caption рядком, який складається з тексту «Дочірня форма MDI» і номера, що зберігається в змінній Counter. Наприклад, властивість Caption в другій формі матиме значення «Дочірня форма MDI 2». Останній рядок, так би мовити, вдихає життя у форму. Вона наказує Visual Basic відобразити форму на екрані. Оскільки ми вже розглядали процес створення форми, ви знаєте, що робота нової форми починається з події Load. Після завантаження форма активізується і відображується на екрані.
Використання Form Wizard
Коли ви освоїте програмування на Visual Basic, вам нерідко доведеться додавати у свої проекти нові форми (як це було зроблено в прикладі MDI - додатки). Оскільки один документний (SDI) інтерфейс не дозволяє імітувати багато можливостей інтерфейсу MDI, для цієї мети були створені спеціальні MDI - форми. На початку роботи над додатком може з'ясуватися, що поодинокої форми не хапає для вирішення завдання; в цьому випадку слід додати нову форму і настроїти її для виконання необхідного завдання. У Visual Basic 6 процес додавання форм спрощений до межі: Form Wizard допоможе вибрати форму потрібного типу і додати її в проект. Досить клацнути правою кнопкою миші усередині вікна проекту і вибрати в контекстному меню команду Add > Form - Form Wizard відкриває діалогове вікно Add Form (мал. 2.10).
Я
Мал. 2.10. Form Wizard.
ПІДКАЗКА. Якщо ви хочете, щоб форми мали стандартний вигляд і при цьому вам довелося поменше програмувати, доручите свою роботу Form Wizard.
Давайте скористаємося Form Wizard і додамо в проект ще одну форму:
1. Клацніть правою кнопкою миші у вікні проекту і виберіть з контекстного меню команду Add > Form. На екрані з'являється вікно Form Wizard.
2. Включите в проект нову форму - для цього слід вибрати значок About Dialog у вікні Add Form. Новій формі автоматично привласнюється ім'я frm - About.
3. Двічі клацніть на рядку frmMDI у вікні проекту, щоб активізувати MDI -форму.
4. Викличте редактор меню і додайте у форму нове меню - для цього слід клацнути на порожньому місці під назвою команди &New Form. Простежите, щоб там не було багатокрапки (..). - якщо воно є присутній, видалите його кнопкою із стрілкою вліво. Тепер задайте властивості Caption значення &Help, a властивості Name - значення mnuHelp.
5. Натисніть кнопку Next, щоб додати наступну команду.
6. Додайте нову команду в меню mnuHelp - для цього натисніть в редакторові меню кнопку із стрілкою управо. Задайте властивості Caption значення &About, a властивості Name - значення mnuHelpAbout. Якщо не натиснути кнопку із стрілкою, то замість нової команди меню Help буде створено нове меню. Закрийте редактор меню кнопкою ОК.
7. Клацніть правою кнопкою миші у вікні проекту і виберіть з контекстного меню команду Project1 Properties.
8. У діалоговому вікні Project Properties, що відкрилося, перейдіть на вкладку Make.
9. Замініть вміст поля Title текстом Приклад MDI -додатки.
10. У групі Version Information виберіть із списку Турі рядок Company Name і введіть назву своєї організації в поле Value.
11. Знайдіть в списку Турі рядок Product Name і введіть значення MDI - додатки, потім натисніть кнопку ОК.
12. Виконаєте команду Help > About з меню MDI - форми, щоб відкрити вікно програми.
13. Включите в процедуру mnuHelpAbout_Click() наступний рядок: frmAbout.Show vbModal
14. Запустіть додаток і відкрийте діалогове вікно About (мал. 2.11).