Функция MENU()

Возвращает имя активной строки меню в виде символьной строки из прописных букв.

Синтаксис:

MENU( )

Результат:
Символьный.

Комментарии:
Функция MENU( ) возвращает пустую строку, если активных меню нет. Для создания и активизации меню пользуйтесь командой Конструктор меню.

Пример:

* В следующем примере функция MENU( ) использована для передачи в
* процедуру имени строки меню. Текущая системная строка меню
* сохраняется в памяти по команде SET SYSMENU SAVE, а затем все
* заголовки системных меню удаляются командой SET SYSMENU TO.
* С помощью команды DEFINE PAD создаются заголовки системных меню.
* При выборе заголовка меню MENU( ) передает процедуре choice имя
* системной строки меню Visual FoxPro ѕ _MSYSMENU. Процедура choice
* отображает на экране имя выбранного заголовка меню и имя системной
* строки меню. Если выбрать меню Exit, восстанавливается
* первоначальная система меню Visual FoxPro.
*** Name this program MENUEXAM.PRG ***

CLEAR
SET SYSMENU SAVE	
SET SYSMENU TO 	 
DEFINE PAD padSys OF _MSYSMENU PROMPT '\<System' COLOR SCHEME 3 ;
	KEY ALT+S, '' 
DEFINE PAD padEdit OF _MSYSMENU PROMPT '\<Edit' COLOR SCHEME 3 ;
	KEY ALT+E, '' 
DEFINE PAD padRecord OF _MSYSMENU PROMPT '\<Record' COLOR SCHEME 3 ;
	KEY ALT+R, '' 
DEFINE PAD padWindow OF _MSYSMENU PROMPT '\<Window' COLOR SCHEME 3 ;
	KEY ALT+W, '' 
DEFINE PAD padReport OF _MSYSMENU PROMPT 'Re\<ports' COLOR SCHEME 3 ;
	KEY ALT+P, '' 
DEFINE PAD padExit OF _MSYSMENU PROMPT 'E\<xit' COLOR SCHEME 3 ;
	KEY ALT+X, ''
ON SELECTION MENU _MSYSMENU ;
	DO choice IN menuexam WITH PAD( ), MENU( )
PROCEDURE choice
PARAMETER gcPad, gcMenu
WAIT WINDOW 'You chose ' + gcPad + ;
	' from menu ' + gcMenu NOWAIT
IF gcPad = 'PADEXIT'
	SET SYSMENU TO DEFAULT
ENDIF

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.