GETPAD( ) (Función)
Devuelve el título de menú correspondiente a una determinada posición en la barra de menús.
GETPAD(cMenuBarName, nMenuBarPosition)
Valores devueltos
Character
Parámetros
- cMenuBarName
Especifica el nombre de la barra de menús. - nMenuBarPosition
Especifica una posición en la barra de menús. nMenuPosition puede variar desde 1 (el título situado más a la izquierda en la barra de menús) hasta el número de títulos de menú de la barra de menús.
Observaciones
Los títulos de menús pueden agregarse, eliminarse o reorganizarse. Utilice DEFINE PAD para agregar un título a una barra de menús o RELEASE PAD para eliminar un título.
Ejemplo
El programa siguiente utiliza GETPAD( ) para comprobar si el menú Edición está en la barra de menús del sistema de Visual FoxPro. Si lo está, GETPAD( ) devolverá el nombre del menú. (Para restaurar la barra de menú Edición a su estado predeterminado, use el comando SET SYSMENU TO DEFAULT.)
FOR gnCount = 1 TO CNTPAD('_msysmenu') && Number of pads
IF PRMPAD('_msysmenu', GETPAD('_msysmenu', gnCount)) = 'Edit'
RELEASE PAD (GETPAD('_msysmenu', gnCount)) OF _msysmenu
EXIT
ENDIF
ENDFOR