Создание меню приложением




Создание строки меню (горизонтального меню).

· Открываем ранее созданный проект.

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

 



Поделиться:




Поиск по сайту

©2015-2024 poisk-ru.ru
Все права принадлежать их авторам. Данный сайт не претендует на авторства, а предоставляет бесплатное использование.
Дата создания страницы: 2016-08-07 Нарушение авторских прав и Нарушение персональных данных


Поиск по сайту: