Freigeben über

Befehlsschaltflächen-Steuerelement (CommandButton)

  • Artikel

Erstellt eine einzelne Befehlsschaltfläche.

CommandButton

Hinweise

Eine Befehlsschaltfläche wird in der Regel verwendet, um ein Ereignis zu starten, das eine Aktion ausführt, wie z. B. das Schließen eines Formulars, Wechseln zu einem anderen Datensatz, Drucken eines Berichts usw. Verwenden Sie das Schaltflächengruppen-Steuerelement (CommandGroup) zum Erstellen einer Menge von Befehlsschaltflächen, die Sie dann einzeln oder als Gruppe bearbeiten können.

Verwenden Sie die Caption-Eigenschaft, um den Text anzugeben, der auf einer Befehlsschaltfläche angezeigt wird. Verwenden Sie die Picture-Eigenschaft, um ein Bild für eine Befehlsschaltfläche anzugeben.

Sie können eine Befehlsschaltfläche auswählen, indem Sie auf diese klicken oder, wenn die Default-Eigenschaft auf Wahr (.T.) gesetzt ist, indem Sie die EINGABETASTE drücken, wenn die Befehlsschaltfläche ausgewählt ist. Wenn die Cancel-Eigenschaft der Befehlsschaltfläche auf Wahr (.T.) gesetzt ist, können Sie die Befehlsschaltfläche durch Drücken der ESC-Taste auswählen.

Weitere Informationen zu Befehlsschaltflächen finden Sie unter Formular-Designer und Verwenden von Steuerelementen.

Beispiel

Das folgende Beispiel demonstriert, wie einem Formular Befehlsschaltflächen hinzugefügt werden können. Mit Hilfe der Caption-Eigenschaft legen Sie den Text fest, der auf der jeweiligen Befehlsschaltfläche angezeigt wird, sowie den Text für die Zugriffstastenfolge der jeweiligen Befehlsschaltflächen. Die Cancel-Eigenschaft dient zum Festlegen einer Befehlsschaltfläche, die bei Drücken von ESC gewählt wird.

Mit Hilfe der AddObject-Methode werden dem Formular drei Befehlsschaltflächen hinzugefügt. Diese dienen zum Kippen einer Linie nach links oder rechts bzw. zum Schließen des Formulars.

frmMyForm = CREATEOBJECT('Form')  && Create a Form
frmMyForm.Closable = .F.  && Disable the Control menu box 

frmMyForm.AddObject('shpLine','Line')  && Add a Line control to the form
frmMyForm.AddObject('cmdCmndBtn1','cmdMyCmndBtn1')  && Up Cmnd button
frmMyForm.AddObject('cmdCmndBtn2','cmdMyCmndBtn2')  && Down Cmnd button
frmMyForm.AddObject('cmdCmndBtn3','cmdMyCmndBtn3')  && Quit Cmnd button

frmMyForm.shpLine.Visible = .T.  && Make Line control visible
frmMyForm.shpLine.Top = 20  && Specify Line control row
frmMyForm.shpLine.Left = 125  && Specify Line control column

frmMyForm.cmdCmndBtn1.Visible =.T.  && Up Command button visible
frmMyForm.cmdCmndBtn2.Visible =.T.  && Down" Command button visible
frmMyForm.cmdCmndBtn3.Visible =.T.  && Quit Command button visible

frmMyForm.SHOW  && Display the form
READ EVENTS  && Start event processing

DEFINE CLASS cmdMyCmndBtn1 AS CommandButton  && Create Command button
   Caption = 'Slant \<Up'  && Caption on the Command button
   Left = 50  && Command button column
   Top = 100  && Command button row
   Height = 25  && Command button height
   
   PROCEDURE Click
      ThisForm.shpLine.Visible = .F.  && Hide the Line control
      ThisForm.shpLine.LineSlant ='/'  && Slant up
      ThisForm.shpLine.Visible = .T.  && Show the Line control
ENDDEFINE

DEFINE CLASS cmdMyCmndBtn2 AS CommandButton  && Create Command button
   Caption = 'Slant \<Down'  && Caption on the Command button
   Left = 200  && Command button column
   Top = 100  && Command button row
   Height = 25  && Command button height

   PROCEDURE Click
      ThisForm.shpLine.Visible = .F.  && Hide the Line control
      ThisForm.shpLine.LineSlant ='\'  && Slant down
      ThisForm.shpLine.Visible = .T.  && Show the Line control
ENDDEFINE

DEFINE CLASS cmdMyCmndBtn3 AS CommandButton  && Create Command button
   Caption = '\<Quit'  && Caption on the Command button
   Cancel = .T.  && Default Cancel Command button (Esc)
   Left = 125  && Command button column
   Top = 150  && Command button row
   Height = 25  && Command button height

   PROCEDURE Click
      CLEAR EVENTS  && Stop event processing, close Form
ENDDEFINE

Siehe auch

Eigenschaften, Methoden und Ereignisse des Befehlsschaltflächen-Steuerelements für Befehlsschaltflächengruppen | Schaltflächengruppe-Steuerelement (CommandGroup) | CREATE CLASS | CREATE FORM | DEFINE CLASS