Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Gibt den Namen der aktiven Menüleiste in Großbuchstaben zurück.
MENU( )
Rückgabewerte
Zeichen
Hinweise
MENU( ) gibt eine leere Zeichenfolge zurück, wenn kein Menü aktiv ist. Verwenden Sie zum Erstellen und Aktivieren eines Menüs den Menü-Designer.
Beispiel
Im folgenden Beispiel wird mit MENU( ) der Name einer Menüleiste an eine Prozedur übergeben. Die aktuelle Systemmenüleiste wird mit SET SYSMENU SAVE im Arbeitsspeicher gespeichert und mit SET SYSMENU TO werden alle Systemmenütitel entfernt.
Mit DEFINE PAD werden mehrere Systemmenüblöcke erstellt. Bei Auswahl eines Menütitels übergibt MENU( ) den Namen der Microsoft Visual FoxPro-Systemmenüleiste (_MSYSMENU) an die Prozedur choice. Diese Prozedur zeigt sowohl den Namen des gewählten Menütitels als auch den Namen der Systemmenüleiste an. Sobald Sie das menü Exit gewählt haben, wird das ursprüngliche Visual FoxPro-Systemmenü wiederhergestellt.
** 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