PAD( )-Funktion

Gibt den zuletzt aus einer Menüleiste gewählten Menütitel als Zeichenfolge in Großbuchstaben zurück oder einen logischen Wert, der anzeigt, ob ein Menütitel für eine aktive Menüleiste definiert ist.

PAD([cMenuTitle [, cMenuBarName]])

Rückgabewerte

Zeichen oder logisch

Parameter

• cMenuTitle
  Gibt den Namen eines Menüs in einer Menüzeile an. Fügen Sie dieses Argument ein, um zu testen, ob der Menütitel für eine aktive Menüzeile definiert ist. Ist der Menütitel definiert, wird ein logisches Wahr (.T.) zurückgegeben, ansonsten wird ein logisches Falsch (.F.) zurückgegeben.
• cMenuBarName
  Gibt den Namen der Menüzeile an, die den Menütitel cMenuTitle enthält. Ist cMenuBarName nicht vorhanden, wird angenommen, dass der Menütitel sich in der aktiven Menüzeile befindet.

Hinweise

Eine Menüleiste muss definiert und aktiviert sein, damit PAD( ) einen Menütitel zurückgibt. Menüleisten werden mit DEFINE MENU und ACTIVATE MENU erstellt und aktiviert.

Sie können PAD( ) auch für die Visual FoxPro-Systemmenüleiste verwenden.

PAD( ) (ohne optionale Argumente) gibt eine leere Zeichenfolge zurück, wenn eine Menüleiste nicht definiert und aktiviert ist, oder wenn Sie PAD( ) über das Befehlsfenster aufrufen.

Beispiel

In diesem Beispiel wird mit PAD( ) ein Menütitel an eine Prozedur übergeben.

Die aktuelle Visual FoxPro-Systemmenüleiste wird mit SET SYSMENU SAVE gespeichert, und mit SET SYSMENU TO werden alle Systemmenünamen entfernt.

Mit DEFINE PAD werden mehrere Systemmenüblöcke erstellt. Wird ein Menütitel ausgewählt, übergibt PAD( ) den Menütitel an die Prozedur choice. choice zeigt den ausgewählten Menütitel und den Namen der Menüleiste an. Wenn Sie den Exit-Menütitel wählen, wird das ursprüngliche Visual FoxPro-Systemmenü wiederhergestellt.

** 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

Siehe auch

ACTIVATE MENU | BAR( ) | DEFINE PAD | DEFINE MENU | MENU( ) | ON PAD | ON SELECTION PAD | PROMPT( )