Возвращает имя активной строки меню в виде символьной строки из прописных букв.
Синтаксис:
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