PAD( ) (Función)

Artículo
04/11/2008

Devuelve como una cadena de caracteres en mayúsculas el título de menú elegido más recientemente en una barra de menús o devuelve un valor lógico que indica si el titulo del menú está definido para una barra de menús activa.

PAD([cMenuTitle [, cMenuBarName]])

Valores devueltos

Character o Logical

Parámetros

cMenuTitle
Especifica el nombre de un título de menú en una barra de menús. Incluya este argumento para probar si el título del menú está definido para una barra de menús activa. Si el título del menú está definido, devuelve el valor verdadero (.T.) lógico; en caso contrario, devuelve el valor falso (.F.) lógico.
cMenuBarName
Especifica el nombre de la barra de menús que contiene el título de menú cMenuTitle. Si se omite cMenuBarName, se supone que el título de menú está en la barra de menús activa actualmente.

Observaciones

Para devolver un título de menú, debe definirse y activarse una barra de menús para PAD( ). Las barras de menús se crean y se activan con DEFINE MENU y ACTIVATE MENU.

También puede usar PAD( ) con la barra de menús del sistema de Visual FoxPro.

PAD( ) (ejecutado sin ninguno de sus argumentos opcionales) devolverá una cadena vacía si no hay ninguna barra de menús definida y activa, o si ejecuta PAD( ) desde la ventana Comandos.

Ejemplo

En este ejemplo se usa PAD( ) para transferir un título de menú a un procedimiento.

La barra de menús del actual sistema de Visual FoxPro se guarda en memoria con SET SYSMENU SAVE y todos los títulos de sistema se quitan con SET SYSMENU TO.

Con DEFINE PAD se crean varios títulos de menú del sistema. Cuando se elige un título de menú, PAD( ) se usa para transferir el título del menú al procedimiento llamado choice. choice muestra el título del menú elegido y el nombre de la barra de menús. Si elige el título de menú Salir, se recupera el menú de sistema original de Visual FoxPro.

** Name this program PADEXAM.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 padexam WITH PAD( ), MENU( ) PROCEDURE choice PARAMETERS gcPad, gcMenu WAIT WINDOW 'You chose ' + gcPad + ; ' from menu ' + gcMenu NOWAIT IF gcPad = 'PADEXIT' SET SYSMENU TO DEFAULT ENDIF

Vea también

Share via