Ход работы. 1. Создайте папку Лабораторная_работа_№14

1. Создайте папку Лабораторная_работа_№14. Скопируйте в нее 1-2 папки с предыдущими лабораторными работами (например, Калькулятор и Фотоальбом).

2. Запустите программу Microsoft Visual Basic 6.0.

3. Откройте существующий проект (например, Альбом.vbp).

4. Выберите команду Project → Add MDI Form (Проект → Добавить MDI-форму).

5. В окне MDI Form на вкладке New щелкните на кнопке Открыть.

6. Свойству Name MDI-формы установите значение frmProgram, а свойству Caption – значение Программы. Остальные свойства для формы установите по своему усмотрению (цвет, размеры и т.п.).

7. Выберите команду Project → Add Form.

8. В окне Add Form откройте вкладку Existing и выберите еще одну существующую форму (например, frmКалькулятор.frm).

9. После выполненных действий окно Project Explorer должно иметь вид, представленный на Рис.14.8.

10. У форм frmКалькулятор и frm.Альбом свойству MDIChild присвойте значение True.

11. Выделите в окне Project Explorer форму frmПрограммы.

12. Выполните команду Project → Project Properties (Проект → Свойства проекта).

13. В открывшемся диалоговом окне (Рис.14.9) выберите вкладку General.

14. В окне Startup Object (Стартовый объект) раскройте список и выберите из него форму frmПрограммы (Рис.14.9). Теперь эта форма проекта будет стартовой.

15. Откройте форму Программы.

16. Выполните команду Tools → Menu Editor (Отладка → Редактор).

17. В окне редактора меню создайте меню, указав данные, приведенные в таблице 14.1. Для перехода к следующему пункту щелкайте по кнопке Next. Для создания подпункта пользуйтесь стрелками → и ←. Процесс создания меню показан на Рис.14.10. В результате меню должно иметь вид, представленный на Рис.14.6 и 14.7.

Таблица 14.1 Пункты меню

Название (Caption)	Уровень (← →)	Имя (Name)
Выбор программы		mnuProg
Калькулятор		itmКалькулятор
Фотоальбом		itmФотоальбом
Окно		mnuWindow
Каскад		itmCascade
Сверху вниз		itmHorizontal
Выход		mnuExit

1. Сохраните проект под именем Программы в папке Лабораторная_работа_№14.

19. Щелкая левой клавишей мыши на пунктах и подпунктах меню, наберите программный код, соответствующий каждому пункту. Необходимые комментарии приведены после апостровоф в коде программы.

'Щелчок по пункту меню «Каскад»

Private Sub itmCascade_Click()

Arrange vbCascade 'метод Arrange упорядочивает дочерние окна или их значки

'в окне материнской MDI-формы. В качестве аргумента метода

'используется одна из констант Visual Basic или ее значение.

'Состояние окна определяется свойством WindowState:

'0 - Normal; 1 - Minimizes; 2 - Maximized