GETBAR( ) (Función)
Devuelve el número de un elemento de un menú definido con DEFINE POPUP o el menú de sistema de Visual FoxPro.
GETBAR(MenuItemName, nMenuPosition)
Valores devueltos
Numeric
Parámetros
- MenuItemName
Especifica el elemento de menú. - nMenuPosition
Especifica una posición en el menú. nMenuPosition puede variar entre 1 y el número de elementos del menú. 1 corresponde al primer elemento del menú, 2 al segundo elemento y así sucesivamente.
Observaciones
Utilice GETBAR( ) para determinar qué elemento ocupa una determinada posición en un menú. Esta función es útil cuando se agregan, eliminan o reorganizan los elementos de un menú. Utilice DEFINE BAR para agregar un elemento a un menú o RELEASE BAR para eliminar un elemento. La posición de los elementos de un menú puede cambiar si se incluye MOVER cuando se crea el menú con DEFINE POPUP.
Ejemplo
El ejemplo siguiente crea un menú llamado popDemo. Se incluye la palabra clave MOVER, por lo tanto, los elementos del menú pueden reorganizarse. Para obtener información acerca de cómo reorganizar los elementos de menú, vea la descripción de la cláusula MOVER en DEFINE POPUP.
El menú se activa y se utilizan una serie de funciones GETBAR( ) en PRMBAR( ) para devolver los títulos de cada elemento. Después de reorganizar los elementos, presione CTRL+Z para mostrar el nuevo orden de los elementos.
CLEAR
ON KEY LABEL CTRL+Z DO showorder
WAIT WINDOW "Press CTRL+Z to refresh." NOWAIT
DEFINE POPUP popDemo MOVER FROM 2,2
DEFINE BAR 1 OF popDemo PROMPT 'One'
DEFINE BAR 2 OF popDemo PROMPT 'Two'
DEFINE BAR 3 OF popDemo PROMPT 'Three'
DEFINE BAR 4 OF popDemo PROMPT 'Four'
DO showorder
ACTIVATE POPUP popDemo
PROCEDURE showorder
CLEAR
@ 3,12 SAY '1 ' + PRMBAR('popDemo', GETBAR('popDemo',1))
@ 4,12 SAY '2 ' + PRMBAR('popDemo', GETBAR('popDemo',2))
@ 5,12 SAY '3 ' + PRMBAR('popDemo', GETBAR('popDemo',3))
@ 6,12 SAY '4 ' + PRMBAR('popDemo', GETBAR('popDemo',4))
RETURN