MENU( ) (Función)
Devuelve el nombre de la barra de menús activa como una cadena de caracteres en mayúsculas.
MENU( )
Valores devueltos
Character
Observaciones
MENU( ) devuelve la cadena nula si no está activo ningún menú. Utilice el Diseñador de menús para crear un menú y activarlo.
Ejemplo
El siguiente ejemplo utiliza MENU( ) para pasar el nombre de una barra de menú a un procedimiento. La barra de menú del sistema actual se guarda en memoria con SET SYSMENU SAVE y todos los títulos de menú del sistema se eliminan con SET SYSMENU TO.
Con DEFINE PAD se crean varios títulos de menú del sistema. Cuando elige un título de menú, MENU( ) pasa el nombre de la barra de menú del sistema de Microsoft Visual FoxPro, _MSYSMENU, al procedimiento choice
. choice
muestra el nombre del título de menú que ha elegido y el nombre de la barra de menú del sistema. Si elige el título de menú Salir, se restaurará el menú del sistema de Visual FoxPro original.
** Save this program as MENUEXAM.PRG in the default VFP directory.**
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