Массив для доступа ко всем кнопкам группы.
Применение:
CommandGroup, OptionGroup
Синтаксис:
Control.Buttons (nIndex).Property = Value - Или - Control.Buttons (nIndex).Method
Установки:
nIndex
Целое число в диапазоне от 1 до общего количества кнопок, заданных свойством ButtonCount данного элемента управления Control.
Property
Свойство элемента управления CommandButton или OptionButton.
Method
Метод элемента управления CommandButton или OptionButton.
Value
Значение свойства Property.
Комментарии:
Недоступно на этапе разработки.
С помощью свойства Buttons можно устанавливать свойства и вызывать методы для всех кнопок данной группы. Свойство Buttons представляет собой массив, создаваемый вместе с группой кнопок.
Пример:
* В следующем примере создается элемент управления OptionGroup и * помещается в форму. Этот элемент управления имеет три кнопки. В * зависимости от того, по какую кнопку вы нажмете, появится окружность, * эллипс или квадрат. Свойство ButtonCount используется для задания * числа кнопок в элементе управления OptionGroup. Свойства Buttons и * Caption используются для задания текста, который появляется рядом с * каждой кнопкой. * Элемент управления Shape используется для создания окружности, * эллипса и квадрата. Событие Click элемента управления OptionGroup * использует структуру DO CASE ... ENDCASE и свойство Value, чтобы * показать соответствующую фигуру, когда вы нажмете кнопку. 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