3.6Создание меню приложения
Создание строки меню (горизонтального меню)..
Перейдём на вкладку Other, выберем группу Menus и нажмём кнопку New окна проекта.
В появившемся диалоговом окне New Menu выберем вариант меню Menu (горизонтальное меню). В результате запускается конструктор меню, а в основное меню Visual FoxPro добавляется новый пункт Menu. В конструкторе меню в поле Prompt можно ввести наименование пунктов меню. Раскрывающийся список Result используется для указания типа меню (Command – Команда, Pad Name – Наименование строки меню, Submenu – Подменю, Procedure – Процедура). Кнопка Options открывает диалоговое окно Prompt Options, в котором можно определить дополнительные параметры данного элемента меню (например, «горячие клавиши»). В списке Menu level указывается уровень текущего меню.
В поле Prompt введём наименование первого пункта меню – Подготовительные курсы – и нажмите клавишу <Tab> для перехода на следующее поле.
Для определения типа пункта меню нажмём кнопку раскрытия списка и выберите значение Submenu.
Перейдём на следующую строку и введём наименование и тип второго пункта меню. Аналогично введём наименования других пунктов меню (рис.1).
-
Prompt
Result
\<1 Подготовительные курсы
Submenu
\<2 Данные учителей
Submenu
\<3 Данные учеников
Submenu
\<F1 Справка
Procedure
\< Очистка
Command
\< Закрыть все
Command
\< Станд. меню
Command
\< Выход
Command
Определим для пунктов меню «горячие клавиши». Для этого необходимо включить в его имя перед активизирующим символом следующие символы: \<. В качестве «горячей клавиши» можно использовать первый символ имени пункта меню или любой другой символ. В нашем примере перед именами пунктов разместите цифры и их используйте в качестве «горячих клавиш» (рис.2).
Определите клавиши быстрого вызова пунктов меню. Для этого выполните следующие действия:
1). Установите курсор на пункт меню «Подготовительные курсы».
2). Нажмите кнопку Options
3). В открывшемся диалоговом окне Prompt Options в области Shortcut поле Key Label содержит подсказку press the key. Установите курсор в поле Key Label и нажмите комбинацию клавиш Alt + 1, которая будет использоваться для быстрого вызова.
4). Нажмите кнопку Ok.
5). Аналогичные действия выполните и для остальных полей, задав им соответственно следующие комбинации клавиш:
Данные учителей – Alt + 2;
Данные учеников – Alt + 3;
Справка – F1;
Очистка Alt + 4;
Закрыть все Alt +6;
Станд. меню Alt + 7;
Выход – Alt + X.
Определим команду, которая будет выполняться при выборе пунктов меню:
-
Пункт меню
Команда
\<6 Очистка
Clear
\<7 Закрыть все
Close all
\<8 Станд. меню
Set sysmenu to default
\<X Выход
Quit
Определим последовательность команд, которая должна выполняться при выборе пункта меню «Справка». Для этого выделим пункт «Справка». Нажмём кнопку Create и в открывшемся диалоговом окне редактирования процедуры определим фрагмент кода, связанный с элементом строки меню. В нашем примере необходимо ввести следующий код :
messagebox ("Проект разработал(а)"+;
chr(13)+;
"Сморкалов Сергей Витальевич"+;
chr(13)+;
"Студент(ка) гр.22П"+;
chr(13)+;
chr(13)+;
"(с) ГБОУ СПО НЭПК 2014 год", 0+64+0, "Справка")
Определим подменю. Для этого выполните следующие действия:
1). Нажмём кнопку Create пункта меню «Подготовительные курсы». На экране появляется пустое окно конструктора меню. Список Menu Level нового окна содержит метку текущего пункта меню.
2). Введём в поле Prompt первой строки заголовок Формы. Используя список Result, задайтём тип пункта Submenu. Нажмём кнопку Create. Введём в поле Prompt первой строки заголовок Подготовительные курсы. Используя список Result, задаём тип пункта Procedure и в окне редактирования процедуры введём
set default to х:\БД (указывается полный путь к файлу)
do form подготовительные_курсы.scx
Закроем окно процедуры.
3). При помощи окна Menu Level перейдём на уровень выше.
4). Во второй строке введём заголовок Отчеты. Используя список Result, задаём тип пункта Submenu. Нажмём кнопку Create. Введём в поле Prompt первой строки заголовок Подготовительные курсы. Используя список Result, задаём тип пункта Command и в соседнем поле напечатаем команду:
report form х:\БД (указывается полный путь к файлу)\подготовительные_курсы
5). При помощи окна Menu Level перейдём на уровень выше.
6). Введём в поле Prompt третьей строки заголовок Запросы. Используя список Result, задаём тип пункта Submenu. Нажмём кнопку Create. Введём в поле Prompt первой строки заголовок Подготовительные курсы. Используя список Result, задаём тип пункта Procedure и в окне редактирования процедуры введём
set default to х:\БД (указывается полный путь к файлу)
do подготовительные_курсы.qpr
Закроем окно процедуры.
7). Перейдём на первый уровень меню, выбрав в списке Menu Level пункт Menu Bar.
8).Аналогично определим подменю для пунктов «Данные учителей», «Данные учеников».
Для улучшения внешнего вида меню создаём разделительные линии. Для этого выполним следующие действия:
1). Выделим пункт меню «Подготовительные курсы» и нажмите кнопку Edit.
2). В открывшемся подменю установим курсор на пункте «Отчеты» и нажмём кнопку Insert.
3). В поле Prompt образованного пункта меню удалим строку New Item и введём \ -
4). Установим курсор на пункте «Запросы» и нажмём кнопку Insert, удалим строку New Item и введём \ -
5). Перейдём на уровень выше и аналогично создаём разделительные линии в подменю пунктов Данные учителей», «Данные учеников».
Сохраним созданное меню. Для этого в меню File выберем команду Save as, в открывшемся окне в поле Папка выберем папку Visual FoxPro Projects, в поле Save Menu введём имя сохраняемого меню Менюшечка. В завершении нажмём кнопку Сохранить.
