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.

Перейдем на следующую строку и введем наименование и тип второго пункта меню. Аналогично введем наименования других пунктов меню.

Prompt	Result
данныеаокупателя	Submenu
данныепродавца	Submenu
машиныданные	Submenu
справка	Submenu
Справка	Procedure
Очистка	Command
Закрыть все	Command
Станд. меню	Command
Выход	Command

Определим для пунктов меню «горячие клавиши». Для этого необходимо

включить в его имя перед активизирующим символом следующие символы: \<. В качестве «горячей клавиши» можно использовать первый

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

Prompt	Result
\<1данныеаокупателя	Submenu
\<2данныепродавца	Submenu
\<3машиныданные	Submenu
\<4справка	Submenu
\<5Справка	Procedure
\<6Очистка	Command
\<7Закрыть все	Command
\<8Станд. меню	Command
\<хВыход	Command

• Определим клавиши быстрого вызова пунктов меню. Для этого выполним следующие действия:

1). Установим курсор на пункт меню «данныепокупателя».

2). Нажмем кнопку Options

3). В открывшемся диалоговом окне Prompt Options в области Shortcut поле Key Label содержит подсказку press the key. Установим курсор в поле Key Label и нажмем комбинацию клавиш Alt + 1, которая будет использоваться для быстрого вызова.

4). Нажмем кнопку Ok.

5). Аналогичные действия выполните и для остальных полей, задав им соответственно следующие комбинации клавиш:

данныепокупателя– Alt + 2;

данныепродавца– Alt + 3;

машиныданные– Alt + 4;

Справка – F1;

Очистка Alt + 6;

Закрыть все Alt + 7;

Станд. меню Alt + 8;

Выход – 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). Во второй строке введите заголовок Отчеты. Используя список Result, задайте тип пункта Submenu. Нажмите кнопку Create. Введите в поле Prompt первой строки заголовок Анкета. Используя список Result, задайте тип пункта Command и в соседнем поле напечатайте команду:

report form х:\Курсовая работа

4). Введите в поле Prompt третьей строки заголовок Запросы. Используя список Result, задайте тип пункта Submenu. Нажмите кнопку Create. Введите в поле Prompt первой строки заголовок Договор. Используя список Result, задайте тип пункта Procedure и в окне редактирования процедуры введите

set default to х:\Курсовая работа(путь)

do данныепокупателя.qpr

Запустим программу меню на выполнение. Для этого в окне проекта установим курсор на имени созданного меню и нажмем кнопку Run. На экране появится созданное вами меню, которое будет замещать горизонтальное меню Visual FoxPro. Проверим работоспособность каждого пункта меню.