ButtonCount (Propiedad)
Especifica el número de botones de un control CommandGroup u OptionGroup. Está disponible en tiempo de diseño y en tiempo de ejecución.
Control.ButtonCount[ = nNumber]
Valores de la propiedad
- nNumber
Especifica el número de botones del control.
Observaciones
Utilice la propiedad ButtonCount para establecer dinámicamente el número de botones contenidos en un control CommandGroup u OptionGroup.
Si cambia el número botones en tiempo de ejecución, se asignarán nombres automáticamente a los nuevos botones. Los botones recibirán el nombre CommandN para un control CommandGroup u OptionN para un control OptionGroup, donde N es el número del botón agregado. Por ejemplo, si hay cuatro botones en el control CommandGroup y se cambia a 5 la configuración de la propiedad Buttons, el nuevo botón se llamará Command5.
Ejemplo
El ejemplo siguiente crea un control OptionGroup y coloca el control en un formulario. El control OptionGroup tiene tres botones y, según el botón en el que haga clic, aparecerá un círculo, una elipse o un cuadrado. La propiedad ButtonCount se utiliza para especificar el número de botones del control OptionGroup. Las propiedades Buttons y Caption se utilizan para especificar el texto mostrado junto a cada botón de opción.
El control Shape se utiliza para crear el círculo, la elipse y el cuadrado. El evento Click del control OptionGroup usa una estructura DO CASE ... ENDCASE y la propiedad Value para mostrar la forma adecuada al hacer clic en un botón de opción.
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
Vea también
Buttons (Propiedad) | DO CASE ... ENDCASE (Comando) | CommandButton (Control)
Se aplica a: CommandGroup (Control) | OptionGroup (Control)