Eigenschaften, Methoden und Ereignisse des Linien-Steuerelements

Eigenschaften

Application BaseClass BorderColor
BorderStyle BorderWidth Class
ClassLibrary ColorSource-Eigenschaft Comment
DragIcon DragMode DrawMode
Enabled Height HelpContextID
Left LineSlant MousePointer
Name OLEDragMode OLEDragPicture
OLEDropEffects OLEDropHasData-Eigenschaft OLEDropMode
Parent ParentClass Tag
Top Visible WhatsThisHelpID
Width    

Ereignisse

Click DblClick Destroy
DragDrop DragOver Error
Init MiddleClick-Ereignis MouseDown
MouseEnter MouseLeave MouseMove
MouseUp MouseWheel OLECompleteDrag
OLEDragDrop OLEDragOver OLEGiveFeedBack
OLESetData OLEStartDrag RightClick
UIEnable    

Methoden

AddProperty CloneObject Drag
Move OLEDrag ReadExpression
ReadMethod ResetToDefault SaveAsClass
WriteExpression WriteMethod ZOrder

Beispiel

Das folgende Beispiel zeigt, wie ein Linien-Steuerelement (Line) zu einem Formular hinzugefügt wird, und wie Sie die LineSlant-Eigenschaft zur Angabe der Neigungsrichtung der Linie verwenden.

Die AddObject-Methode wird verwendet, um ein Linien-Steuerelement (Line) einem Formular hinzuzufügen. Drei Befehlsschaltflächen werden zum Formular hinzugefügt. Diese ermöglichen es, die Neigungsrichtung der Linien zu ändern oder das Formular zu schließen.

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

Linien-Steuerelement (Line) | Line-Methode | LineSlant-Eigenschaft

  • Last updated on