Создание строки меню (горизонтального меню).
· Открываем ранее созданный проект.
· Перейдем на вкладку 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. Проверим работоспособность каждого пункта меню.