У

Мал. 2.8. Редактор меню.

своєму прикладі ми обмежимося дуже простим меню. Не турбуйтеся про технічні подробиці роботи з редактором меню - вони будуть розглянуті в уроці 5, «Створення і використання меню і панелей інструментів».

1. Введіть &File в поле Caption.

2. Введіть mnuFile в поле Name.

3. Натисніть кнопку Next.

4. Натисніть кнопку із стрілкою управо - у команди меню з'являється відступ.

5. Введіть &New Form в поле Name.

6. Введіть mnuFileNew в поле Name.

7. Закрийте редактор меню кнопкою ОК.

8. У формі frmMDI повинне з'явитися меню File. Виконаєте команду File > New, і на екрані з'явиться вікно програми.

9. Вставте в процедуру події mnuFileNew_Click() наступний фрагмент:

Dim frm As New frmChild

frm.Show

1

0. Збережете і Запустіть проект. На малюнку показаний зразковий вид вікна MDI - додатки.

Доданий нами фрагмент створює нову копію форми frmChild і відображує її. Це відбувається при кожному виконанні команди File > New. Спробуйте відкрити і закрити декілька дочірніх вікон; як бачите, ми побудували цілком робоче MDI - додатки.

Нова версія mdi - додатки

Щоб наша програма дійсно була схожа на комерційні MDI - додатки Windows, необхідно додати декілька додаткових штрихів. Наприклад, усі дочірні форми мають однакові назви, так що їх неможливо відрізнити один від одного; цей недолік треба виправити. Також хотілося б мати можливість упорядкувати дочірні вікна і збудувати їх «мозаїкою», або «каскадом». Нарешті, в меню має бути присутній список вікон, за допомогою якого можна легко перейти до будь-якого дочірнього вікна, навіть якщо воно заховане під іншими вікнами.

1. Запустіть редактор меню і додайте в рядок меню батьківського вікна, frmMDI, нове меню &Window. Встановіть прапорець WindowList в редакторові меню.

2. Додайте в нове меню команди Tile і Cascade. Назвіть їх mnuWindowTile і mnuWindowCascade відповідно.

3. Закрийте редактор меню кнопкою ОК.

4. Додайте в процедуру події Click об'єкту mnuWindowTile наступний рядок:

frmMDI.Arrange vbTileHorizontal

5. Додайте в процедуру події Click об'єкту mnuWindowCascade наступний рядок:

frmMDI.Arrange vbCascade

vbCascade і vbTileHorizontal - вбудовані константи Visual Basic. Їх значення описане в довідковій системі.

6. Зміните код процедури для команди mnuFileNew:

Private Sub mnuFileNew_Click()

Static Counter As Integer

Dim frm As New frmChild

Counter = Counter + 1

frm.Caption = «Дочірня форма MDI» & Counter

frm.Show

End Sub

7. Збережіть і запустіть додаток. Зверніть увагу на відмінності мал. 2.9 від попереднього малюнка.

Розшифровка програми

Можливо, фрагмент програми з попереднього прикладу здався вам абсолютно незрозумілим - не варто засмучуватися. Сенс багатьох операторів проясниться в наступних главах цієї книги. Та все ж давайте коротко розглянемо цей фрагмент, щоб ви хоч би приблизно уявляли собі, що в нім відбувається.

П

ерший рядок (Static Counter As Integer) наказує Visual Basic створити змінну з ім'ям Counter. Ключове слово Static говорить про те, що значення Counter запам'ятовуватиметься при кожному виклику процедури. Це дозволяє використовувати Counter для підрахунку створюваних форм.