Eigenschaften, Methoden und Ereignisse des Optionsgruppen-Steuerelements

Artikel
04/01/2008

Eigenschaften

Application	AutoSize	BackColor
BackStyle	BaseClass	BorderColor
BorderStyle	ButtonCount	Buttons
Class	ClassLibrary	Comment
ColorSource	ControlSource	DragIcon
DragMode	Enabled	Height
HelpContextID	Left	MouseIcon
MousePointer	Name	OLEDragMode
OLEDragPicture	OLEDropEffects	OLEDropHasData
OLEDropMode	Parent	ParentClass
SpecialEffect	TabIndex	Tag
TerminateRead	Top	Value
Visible	WhatsThisHelpID	Width

Ereignisse

Click	DblClick	DragDrop
DragOver	Error	ErrorMessage
Init	InteractiveChange	Message
MiddleClick	MouseDown	MouseEnter
MouseLeave	MouseMove	MouseUp
MouseWheel	OLECompleteDrag	OLEDragDrop
OLEDragOver	OLEGiveFeedBack	OLESetData
OLEStartDrag	ProgrammaticChange	RightClick
UIEnable	Valid	When

Methoden

AddObject	AddProperty	CloneObject
Drag	Move	OLEDrag
ReadExpression	ReadMethod	Refresh
RemoveObject	ResetToDefault	SaveAsClass
SetAll	WriteExpression	WriteMethod
ZOrder

Beispiel

Im folgenden Beispiel wird ein Optionsgruppen-Steuerelement (OptionGroup) erstellt und auf einem Formular angeordnet. Das Optionsgruppen-Steuerelement verfügt über drei Schaltflächen. Abhängig vom Optionsfeld, auf das Sie klicken, wird ein Kreis, eine Ellipse oder ein Quadrat angezeigt. Die Eigenschaften Buttons und Caption legen den neben den Optionsfeldern angezeigten Text fest.

Mit Hilfe des Form-Steuerelements (Shape) werden Kreis, Ellipse und Quadrat erstellt. Das Click-Ereignis des Optionsgruppen-Steuerelements verwendet eine DO CASE ... ENDCASE-Befehlsstruktur und die Value-Eigenschaft, um beim Klicken auf eine Optionsschaltfläche die entsprechende Form anzuzeigen.

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

frmMyForm.AddObject('cmdCommand1','cmdMyCmndBtn')  && Add Command button
frmMyForm.AddObject('opgOptionGroup1','opgMyOptGrp') && Add Option Group
frmMyForm.AddObject('shpCircle1','shpMyCircle')  && Add Circle Shape
frmMyForm.AddObject('shpEllipse1','shpMyEllipse')  && Add Ellipse Shape
frmMyForm.AddObject('shpSquare','shpMySquare')  && Add Box Shape

frmMyForm.cmdCommand1.Visible =.T.  && "Quit" Command button visible

frmMyForm.opgOptionGroup1.Buttons(1).Caption = "\<Circle"
frmMyForm.opgOptionGroup1.Buttons(2).Caption = "\<Ellipse"
frmMyForm.opgOptionGroup1.Buttons(3).Caption = "\<Square"
frmMyForm.opgOptionGroup1.SetAll("Width", 100) && Set Option group width
frmMyForm.opgOptionGroup1.Visible = .T.  && Option Group visible
frmMyForm.opgOptionGroup1.Click  && Show the circle

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

DEFINE CLASS opgMyOptGrp AS OptionGroup  && Create an Option Group
   ButtonCount = 3  && Three Option buttons
   Top = 10
   Left = 10
   Height = 75
   Width = 100

   PROCEDURE Click 
      ThisForm.shpCircle1.Visible = .F.  && Hide the circle
      ThisForm.shpEllipse1.Visible = .F.  && Hide the ellipse
      ThisForm.shpSquare.Visible = .F.  && Hide the square
      
      DO CASE
         CASE ThisForm.opgOptionGroup1.Value = 1
            ThisForm.shpCircle1.Visible = .T. && Show the circle
         CASE ThisForm.opgOptionGroup1.Value = 2 
            ThisForm.shpEllipse1.Visible = .T.  && Show the ellipse
         CASE ThisForm.opgOptionGroup1.Value = 3 
            ThisForm.shpSquare.Visible = .T.  && Show the square
      ENDCASE
ENDDEFINE

DEFINE CLASS cmdMyCmndBtn 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 = 210  && Command button row
   Height = 25  && Command button height

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

DEFINE CLASS shpMyCircle AS SHAPE  && Create a circle
   Top = 10
   Left = 200
   Width = 100
   Height = 100
   Curvature = 99
   BackColor = RGB(255,0,0)  && Red
ENDDEFINE

DEFINE CLASS shpMyEllipse AS SHAPE  && Create an ellipse
   Top = 35
   Left = 200
   Width = 100
   Height = 50
   Curvature = 99
   BackColor = RGB(0,128,0)  && Green
ENDDEFINE

DEFINE CLASS shpMySquare AS SHAPE  && Create a square
   Top = 10
   Left = 200
   Width = 100
   Height = 100
   Curvature = 0
   BackColor = RGB(0,0,255)  && Blue
ENDDEFINE

Siehe auch

Optionsgruppen-Steuerelement (OptionGroup) | DO CASE ... ENDCASE-Befehl | Objektauflistung

Freigeben über