GETBAR( )-Funktion
Gibt die Nummer eines Menüelements zurück, das zu einem mit DEFINE POPUP definierten Menü oder zum Visual FoxPro-Systemmenü gehört.
GETBAR(MenuItemName, nMenuPosition)
Rückgabewerte
Numerisch
Parameter
- MenuItemName
Gibt den Namen einer Menüvariablen an. - nMenuPosition
Gibt die Position im Menü an. nMenuPosition kann zwischen 1 und der Anzahl der Elemente des Menüs liegen. 1 entspricht dem ersten Menüelement, 2 dem zweiten Menüelement usw.
Hinweise
Mit Hilfe von GETBAR( ) können Sie ermitteln, welches Element in einem Menü eine bestimmte Position (Zeile) einnimmt. Diese Funktion ist nützlich, wenn Elemente zu einem Menü hinzugefügt, aus einem Menü gelöscht oder in einem Menü neu angeordnet werden sollen. Verwenden Sie DEFINE BAR, um ein Element zu einem Menü hinzuzufügen, und RELEASE BAR, um ein Element zu löschen. Die Positionen, die die Elemente eines Menüs einnehmen, können geändert werden, indem Sie in dem DEFINE POPUP-Befehl, mit dem das Menü definiert wird, das MOVER-Schlüsselwort angeben.
Beispiel
Im folgenden Beispiel wird ein Menü mit dem Namen PopDemo erstellt. Da das MOVER-Schlüsselwort angegeben ist, können die Elemente des Menüs neu angeordnet werden. Informationen über das erneute Anordnen von Menüelementen finden Sie unter der Klausel MOVER des Befehls DEFINE POPUP.
Das Menü wird aktiviert, und in PRMBAR( ) werden eine Reihe von GETBAR( )-Funktionen verwendet, um Beschriftungen für die einzelnen Elemente zurückzugeben. Nachdem Sie die Elemente neu angeordnet haben, drücken Sie die Tastenkombination STRG+Z, um die neue Reihenfolge der Elemente anzuzeigen.
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