Ход работы.
1. Создайте папку Лабораторная_работа_№14. Скопируйте в нее 1-2 папки с предыдущими лабораторными работами (например, Калькулятор и Фотоальбом).
2. Запустите программу Microsoft Visual Basic 6.0.
3. Откройте существующий проект (например, Альбом.vbp).
4. Выберите команду Project → Add MDI Form (Проект → Добавить MDI-форму).
5. В окне MDI Formна вкладке New щелкните на кнопке Открыть.
6. 
Свойству NameMDI-формы установите значение 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 |
- Сохраните проект под именем Программы в папке Лабораторная_работа_№14.
19. Щелкая левой клавишей мыши на пунктах и подпунктах меню, наберите программный код, соответствующий каждому пункту. Необходимые комментарии приведены после апостровоф в коде программы.
'Щелчок по пункту меню «Каскад»
Private Sub itmCascade_Click()
Arrange vbCascade 'метод Arrange упорядочивает дочерние окна или их значки
'в окне материнской MDI-формы. В качестве аргумента метода
'используется одна из констант Visual Basic или ее значение.
'Состояние окна определяется свойством WindowState:
'0 - Normal; 1 - Minimizes; 2 - Maximized
Дата добавления: 2015-06-12; просмотров: 529;