11. «Сборка» проекта.

В настоящем занятии Вы познакомитесь с концепциями мультидокументного интерфейса и меню, а также «соберете» созданные Вами к этому времени заготовки в единую программу, добавите к программе меню и код для управления им.

• Но наша задача – объединить формы-заготовки в некое целое. Это можно сделать по-разному, например, добавить еще одну форму, поместить на нее кнопки, которые будут вызывать наши формы. Но это непрофессионально. Гораздо лучше использовать так называемый мультидокументный интерфейс.

• Типичная программа с MDI структурой – сам VB.

• Кроме MDI структуры существует SDI структура программ (SDI – SingleDocumental Interface – однодокументный интерфейс), когда программа работает лишь с одним документом одновременно. Созданные нами формы –  уже практически готовые типичные SDI приложения.

Для создания MDI-приложения следует:

• создать так называемую MDI-форму,

• создать и добавить к ней дочерние формы,

• добавить код для взаимодействия MDI и дочерних форм.

Преобразуем наше приложение в MDI.

• Приготовьтесь к работе.

• Выполните команду меню ProjectAdd MDI Form.

• В появившемся окошке нажмите кнопку «Открыть».

Обратите внимание – в окне Project Explorer появился необычный значок с подписью MDIForm1.

Откройте вновь меню Project.

Как видите, пункт Add MDI Form недоступен. В проекте может быть только одна форма мультидокументного интерфейса.

• Измените заголовок с MDIForm1 на « Органайзер» (без кавычек).

• Сразу можете изменить свойство Icon, присвоив форме какой-нибудь особенный значок.

• Назначьте форму mfrmOrganizer стартовым объектом проекта (вспомните, как мы это делали раньше при создании формы frmPhoneBook).

• во-первых, сделать созданные нами формы дочерними формами, то есть, чтобы они появлялись в MDI-форме как ее порождения, зависели от нее и управлялись ею,

• а, во-вторых, создать механизм управления дочерними формами.

• Откройте окно визуального редактирования формы frmPhoneBook.

• Убедитесь, что фокус находится на форме, а не на контролах.

• В окне Properties измените свойство MDIChild (MDIДочерняя) с False на True (с Ложного на Истинный).

• Сделайте то же самое для формы frmDiary.

Теперь эти формы будут вести себя как подчиненные MDI-форме.

Задачу управления дочерними формами мы решим с помощью меню. Вы уже знакомы с меню по другим программам Windows, в том числе по самому VB. В программы вы можете включать собственные меню.

• Перейдите в окно визуального редактирования формы mfrmOrganizer.

• Выполните команду меню ToolsMenu Editor... (ИнструментыРедактор Меню).

Появится окно редактора меню:

• В строку Caption введите надпись на будущем пункте меню: « &Файл» (без кавычек).

• В строку Name введите имя пункта меню, которым будет оперировать код программы: mnuFile.

Как видите, в окне в нижней части редактора появился заголовок пункта меню:

• Щелкните кнопку Next (Следующий).

• Введите еще три пункта меню, с заголовком « &Вид» и именем mnuView, « &Окна» - mnuWindows, « &Справка» - mnuHelp, каждый раз нажимая Next для создания нового пункта.

• Щелкните OK.

Как видите, на заготовке формы появились пункты меню:

Из рисунка понятно, зачем в заголовки пунктов меню мы включали символ « &» (амперсанд).

• К пункту меню вы можете обратиться путем нажатия клавиши [Alt], и, одновременно – клавиши с подчеркнутой буквой, например, открыть пункт « Файл» можно нажатием [Alt] + [Ф].

• То есть, клавиша «Ф» - горячая клавиша для этого пункта.

Но оставить так, как есть – признак непрофессионализма. Так тоже не делайте! В нормальных программах для Windows обязательно бывает хотя бы один уровень подменю, которое открывается при выборе пункта главного меню.

Создадим пункты подменю.

• Вновь откройте редактор меню.

• Перейдите (в нижнем окне) на пункт « &Вид».

• Щелкните Insert (Вставить).

Над выбранным пунктом появится место для нового пункта меню.

• Внесите заголовок « В&ыход» и имя mnuExit.

• Один раз щелкните на кнопке с изображением стрелки влево (в окне редактора, не надо нажимать кнопку на клавиатуре!).

Созданный пункт меню «сдвинется» влево:

• Щелкните OK.

• А теперь один раз щелкните на пункте « Ф айл» в окне визуального редактирования.

Вот что вы увидите:

VB позволяет создавать меню, имеющее до четырех уровней. Для любой практической задачи этого достаточно.

• Если вы собираетесь делать большее количество уровней подменю – скорее всего, вам следует серьезно пересмотреть структуру меню.

Теперь создадим другие подменю.

• Откройте редактор меню.

• Перейдите на пункт « &Окна».

• Щелкните Insert.

• Введите заголовок пункта меню « &Телефоны...» и имя mnuPhoneBook.

• Щелкните «стрелку влево».

• Точно так же введите пункты: заголовок « &Дневник...» – имя mnuDiary, заголовок « -» (знак минуса) – имя mnuSep1, заголовок « &Калькулятор...» - имя mnuCalc.

Окно редактора должно выглядеть так:

• Щелкните OK.

• Проверьте, как выглядит меню формы:

Как видите, знак минуса в заголовке превратился в горизонтальный разделитель. Его назначение – чисто косметическое, но имя ему назначать надо. Пункты с «троеточием» используются для вызова каких-то окон программы, пункты без «троеточия» (как, например, пункт « Выход» в меню « Файл») предназначены для непосредственного выполнения какой-то команды.

Теперь построим подменю « Окна» и « Справка».

В подменю « Окна» внесем пункты для упорядочения дочерних окон в главном окне, здесь же будет находиться список открытых в данный момент окон.

• В подменю «Окна» самостоятельно внесите подпункты:

• После этого в окне редактора меню перейдите на пункт « Окна» и установите флажок WindowList(Список Окон).

Этот флажок обеспечивает появление в этом пункте меню списка открытых программой окон:

Форма приобретет подменю:

В меню « Справка» добавьте два подпункта: заголовок « С&правочная информация...» - имя mnuHelpText, и подпункт с заголовком « О программе...» и именем mnuAbout.

Вот так это будет выглядеть:

Сейчас ознакомимся с другими возможностями редактора меню.

• Поэкспериментируйте с флажками Checked (Отмечено), Enabled (Дозволено), Visible (Видимо) редактора меню, устанавливая или сбрасывая флажки по очереди, запуская каждый раз программу и проверяя внешний вид измененных пунктов меню.

• Верните все к первоначальному виду.

• Флажок Checked устанавливает или сбрасывает свойство Checked выбранного пункта меню. Если флажок установлен (свойство = True), то пункт меню будет отмечен «птичкой».

• Флажок Enabled (и одноименное свойство) отвечает за то, доступен ли этот пункт меню. Если свойство = False, то пункт меню написан «серым» цветом и выбрать его нельзя.

• Свойство Visible отвечает за видимость пункта, если оно равно False, то пункт меню не виден (и, соответственно, выбрать его нельзя).

Разумеется, что вышеописанные свойства меню можно изменять при помощи кода, во время выполнения программы.

• Список Shortcut (БыстрыйДоступ) позволяет назначить пункту меню сочетание «быстрых» клавиш, нажатие которых будет соответствовать выбору этого пункта.

Меню нами создано. Теперь, чтобы оно работало, следует добавить в него код.

• Перейдите в окно редактирования кода формы mfrmOrganizer.

• В левом списке выберите контрол mnuExit (как помните, это меню с надписью « Выход»).

В окне кода появится заготовка обработчика события mnuExit_Click.

• Внесите строку кода:

Unload Me

• Готово, теперь добавьте комментарий.

Добавим код для вызова формы frmPhoneBook.

• В списке объектов окна редактирования кода выберите объект mnuPhoneBook.

• В созданный обработчик события Click добавьте строку:

frmPhoneBook.Show

Метод Show(Показать) заставляет программу «показать» указанный объект.

• Если программа при этом впервые за время своей работы обращается к этому объекту, он будет загружен (и в нем произойдут событие Load и другие события, связанные с созданием этого объекта).

• Почему мы не использовали другой метод, Load (Загрузить)? А потому, что тогда при каждом выборе этого пункта меню заново будет загружаться указанная форма. Это может привести к ошибкам (и обязательно приведет).

Самостоятельно добавьте код для пункта меню « Дневник...».

Запустите программу.

• Выберите пункт меню « Телефоны...».

• Выберите пункт меню « Дневник...»

• Разместите дочерние окна так, чтобы окно « Дневник» накладывалось на окно « Телефонная книжка».

• Снова выберите пункт « Телефоны...».

Как видите, порядок расположения окон не изменился.

Было бы лучше, если бы выбор пункта меню приводил к перемещению окна на передний план, даже если окно уже загружено и работает. Сделать это несложно:

Остановите программу и в обработчиках событий пунктов меню « Телефоны...» и « Дневник...» замените метод Show на метод ZOrder, например:

Private Sub mnuPhoneBook_Click()

	frmPhoneBook.ZOrder

End Sub

Метод ZOrder без параметров (или с параметром 0) приводит к перемещению окна на передний план. Параметр 1 (ZOrder 1) приведет к противоположному эффекту.

Испытайте программу.

Пока пропустим пункт меню « Калькулятор...» и займемся меню « Окна».

Перейдите в обработчик пункта меню mnuHoriz_Click.

Внесите в него строку:

Me.Arrange vbTileHorizontal

Метод Arrange (Расположить) как раз и занимается позиционированием дочерних окон. Он имеет параметры: vbCascade (Каскад) – располагает окна «каскадом», vbTileHorizontal (ЧерепицаГоризонтальная) – располагает окна по горизонтали, vbTileVertical (ЧерепицаВертикальная) – располагает окна по-вертикали, vbArrangeIcons (РасположитьЗначки) – упорядочивает свернутые пользователем дочерние окна.

Самостоятельно создайте обработчики событий для меню mnuVert и mnuCascade.

Запустите программу, вызовите дочерние окна и поэкспериментируйте с расположением окон.

• Перейдите в обработчик события mnuAbout_Click.

• Внесите строку:

frmAbout.Show vbModal

Необязательный параметр метода Show - vbModal заставляет программу не воспринимать никакие воздействия до тех пор, пока вызванное окно не будет закрыто.

• Выберите пункт меню « О программе...».

• Попробуйте совершить какие- то действия с программой, не закрывая окна « О программе».

• Закройте окно « О Программе» и повторите попытки.

• Создавать калькулятор «с нуля» довольно сложно, а нам и не нужно – в составе Windows он уже есть. Задача в том, чтобы вызвать его из нашей программы, а не искать по всем каталогам…

• Для этого следует использовать функцию языка Shell.

• Внесите в него строку:

Shell “Calc.exe”

Команда Shel l (Оболочка) заставляет программу запустить другую программу, имя (и путь) которой указывается как параметр.

Остался один незадействованный пункт – справка.

• Наберите небольшой (примерно в полстранички) текст, вкратце описывающий программу «Органайзер». Включите информацию: о назначении программы, о возможностях, о способах работы. Укажите свои координаты и дату написания программы.

• Сохраните этот текст в каталоге C:\VB Begin (т.е. в вашем рабочем каталоге) под именем Help.txt

Внесите в него строку:

Shell "Notepad.exe " & App.Path & "\Help.txt", _

	vbNormalFocus

‘Notepad.exe – стандартный Блокнот Windows.

Здесь Вы видите объект App (от Application – Приложение). Он представляет собою Ваше приложение. Свойство Path (Путь) возвращает путь к приложению.

• Можно было бы написать иначе:

Shell “Notepad.exe c:\VB Begin\Help.txt”

Но, если вы переместите приложение с текстовым файлом в другой каталог, эта команда работать не будет.

• Второй параметр процедуры Shell – vbNormalFocus (Нормальный [размер окна] с Фокусом) – способ отображения окна запускаемого приложения.

Как видите, открылся Блокнот с вашим файлом справки.

Для такой программки, как наша, этот способ вполне приемлем, а позже мы сделаем по-другому…

Проверьте код формы mfrmOrganizer, он должен выглядеть примерно так:

Option Explicit

Private Sub mnuAbout_Click()

	frmAbout.Show vbModal

End Sub

Private Sub mnuCalc_Click()

	Shell "Calc.exe"

End Sub

Private Sub mnuCascade_Click()

	Me.Arrange vbCascade

End Sub

Private Sub mnuDiary_Click()

	frmDiary.ZOrder

End Sub

Private Sub mnuExit_Click()

	Unload Me

End Sub

Private Sub mnuHelpText_Click()

	Shell "Notepad.exe " & App.Path & "\Help.txt", vbNormalFocus

End Sub

Private Sub mnuHoriz_Click()

	Me.Arrange vbTileHorizontal

End Sub

Private Sub mnuPhoneBook_Click()

	frmPhoneBook.ZOrder

End Sub

Private Sub mnuVert_Click()

	Me.Arrange vbTileVertical

End Sub

Итак, вы создали вполне полноценное меню и научились управлять им.

К сожалению, VB не позволяет прибавлять к меню значки (как, например, в самом VB или в Word) – вернее, это можно сделать, но необходимые знания выходят далеко за пределы нашего вводного курса.

• Откройте окно визуального редактирования формы frmDiary.

• Вызовите редактор меню.

• Внесите заголовок меню « Пример» и имя mnuExample.

• Нажмите OK.

• Теперь запустите программу и на главной MDI-форме выберите пункт меню « Дневник...».

Как видите, меню главной формы заменяется единственным пунктом « Пример».

• Теперь закройте форму дневника.

Меню восстановилось.

• Остановите программу. Вновь откройте редактор меню для формы frmDiary и удалите меню.

Эта особенность поведения меню в MDI-программах обща для всех Windows-приложений, и ее необходимо учитывать и соответственно проектировать меню.

Вопросы

1. Дайте определение MDI и SDI программам, опишите их структуру и принципы построения.

2. Дайте определение меню. Какое инструментальное средство предназначено для создания меню? Какие свойства и события есть у меню? А какие методы?

3. Для чего применяется метод Show? Чем он отличается от метода Load? ZOrder?

4. Опишите команду Shell.

5. Что представляет собою объект App? Для чего мы применили его свойство Path?

Задания

1. Добавьте комментарии к созданному Вами коду.

2. Конспект!