Программа 14. Работа с меню и диалоговыми окнами.

Menu Editor (Редактор меню) – это графический инструмент, управляющий меню в программе. Позволяет добавлять новые меню, модифицировать и упорядочивать существующее меню, удалять старые меню.

Создадим меню Clock (Часы), которое показывает текущее время и дату. Для этого сначала создадим проект нового стандартного ехе-файла (рис.20). Далее надо вызвать на панели инструментов Menu Editor. В позиции Caption (Надпись) наберите Clock, нажмите клавишу Tab, чтобы курсор перешел в текстовый блок Name (Имя). Набрать mnuClock (mnu – для идентификации пункта меню в программном коде). Далее выбрать кнопку Next (Далее) для добавления заголовка меню Clock в вашу программу. Редактор очистит диалоговое окно для следующего пункта меню.

Рис.20.

Наберите Date в текстовом блоке Caption, нажмите клавишу Tab и набрать mnuDateItem (Item – делает Date командой, а не заголовком). Далее щелкнуть по кнопке со стрелкой вправо, команду Date перемещает вправо на 4 пробела, показывая этим, что данный пункт – команда меню. Выбрать кнопку Next (Далее), набрать Time, нажмите клавишу Tab и набрать mnuTimeItem.

Щелкните по кнопке Ок, чтобы закрыть меню редактора. На экране появится ваша форма со строкой меню и меню Clock, потом откройте меню Clock, чтобы увидеть содержимое.

Добавим быстрых клавиш к командам меню. Быстрая клавиша – это клавиша на клавиатуре, которую можно нажать для выполнения команды. Для добавления нужно вызвать Menu Editor и поставить перед буквой названия пункта амперсенд(&) перед словами Clock, Time, Date в текстовом блоке Сaption. Закрыть Меню и щелкнуть по кнопке Start. В меню Clock команды показаны с подчеркнутыми быстрыми клавишами. Можно поменять положение Time c Date в Menu Editor с помощью стрелок.

После того как пункты меню помещены на строку меню, они становятся объектами в программе. Чтобы заставить объекты работать, надо написать для них процедуры событий. Процедуры событий меню содержат программные утверждения, которые выводят, обрабатывают и модифицируют свойства меню.

В форму из панели инструментов добавим метку (Label1). Установите следующие свойства для этой метки:
Alignment - 2-Center;
BorderStyle – 1-Fixed Single;
Caption - нет;
Font – VS Sans Serif Bold 14 point.

Добавим процедуры событий меню, для чего в окне проект вызываем Просмотр кода (View Code) для открытия окна Code. В ниспадающем списке объектов выбрать mnuTimeItem. Появится процедура события mnuTimeItem_Click. Здесь 4 раза нажать клавишу SpaceBar и набрать:

Label1. Caption=Time

Это утверждение выведет текущее время. Аналогичную операцию выполнить для объекта mnuDateItem (Label1.Caption=Date). Записать программу на диске С:. На панели инструментов выбрать Старт для выполнения этой программы.

Добавим объект общего диалога. Этот объект имеет стандартный размер и невидим для пользователя при работе программы. Если на панели инструментов нет управления общими диалогами, то его можно добавить, выбрав из меню Разработать – Компоненты, а в них выбрать строку Microsoft Common Dialog Control (Управление общими диалогами), пометив птичкой и нажав Ок. Значок появится на панели инструментами. Выбрать этот значок и начертить его в левом угле формы. Далее создать графический объект Image control в центре формы. Описать Свойства: Stretch (вытягивание) True (Да).

В Menu Editor добавить меню File с командами Open,Close, Exit (подобно созданию меню Clock с командами). В типичном приложении для Windows не все команды меню доступны одновременно. Запретим команду Close, для этого в Menu Editor щелкнуть на контрольном блоке Enabled для удаления контрольного значка. В Кодах в всплывающем меню выбрать mnuOpenItem для добавления программных утверждений:

CommonDialog1.Filter = "Metafiles(*.wmf)/*/wmf"
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialod1.FileName)
mnuCloseItem.Enabled = True

Первая строка использует Filter для определения списка файлов. Здесь используются метафайлы, можно использовать *.bmp, для этого строка должна быть: CommonDialog1.Filter = "Bitmaps(*.bmp)/*.bmp"

Следующая строка в процедуре события выводит на экран окно общего диалога Open в диалоге. Третья строка использует имя файла, выбранное пользователем в диалоговом окне. Последняя строка разрешает команду Close в меню File.

Процедура события команды mnuExitItem в окне Коды содержит программное утверждение End.

Процедура события команды mnuCloseItem в окне Коды:

Image1.Picture = LoadPicture(" ")
mnuCloseItem.Enabled = False

Первая строка закрывает открытый файл загрузкой пустой картинки в объект Image1. Вторая строка делает тусклой команду Close в меню File. Закрыть окно Код. Сохранить проект и форму. Запустить программу и поработать с меню и диалоговыми окнами.