Применение
Объект CheckBox |
Объект OptionButton |
Объект ToggleButton |
Каждый элемент управления в группа переключателей имеет числовое значение, которое можно задать с помощью свойства OptionValue . Возвращает доступное для чтения и записи значение типа Long.
выражение.OptionValue
Выражение Обязательный. Выражение, возвращающее один из объектов в списке Применяется к.
Замечания
Если выбран элемент управления, группе переключателей назначается номер. Если она привязана к полю, значение свойства OptionValue выбранного элемента управления сохраняется в этом поле.
Например, эта группа параметров Region привязана к полю Регион в таблица. Кнопка Европа имеет параметр свойства OptionValue 1, кнопка Азия имеет значение 2, а кнопка "Африка " имеет значение 3. Если выбрана одна из этих кнопок, значение группы параметров Регион будет совпадать с параметром свойства OptionValue для выбранного элемента управления. В этом случае, так как группа параметров Регион привязана к полю Регион, значение этого поля в таблице также равно 2.
Примечание: Свойство OptionValue применяется только к элементам управления Флажок, переключатель и выключатель в группе параметров.
Свойство OptionValue можно задать с помощью Окно свойств элемента управления , макрос или кода Visual Basic для приложений (VBA).
Если свойство OptionValue не изменено пользователем, первый элемент управления, помещаемый в группу параметров, будет иметь значение 1, второй — 2 и т. д.
Свойство OptionValue является доступным, только когда элемент управления помещен в группу параметров. Если флажок, выключатель или переключатель не входят в группу параметров, у элемента управления нет свойства OptionValue. Вместо этого элемент управления имеет свойство ControlSource (Данные) со значением True, если он выбран, либо False, если он не выбран.
Пример
В следующем примере свойство OptionValue задается трем переключателям в группе параметров Ship Method Group при открытии формы. При выборе переключателя в группе параметров отображается сообщение с указанием назначенного номера кода поставщика.
Private Sub Form_Open(Cancel As Integer)
Me.Controls("ABC Couriers").OptionValue = 15876 Me.Controls("Speedy Delivery").OptionValue = 742 Me.Controls("Lightning Express").OptionValue = 1256 End Sub Private Sub Ship_Method_Group_Click() MsgBox "The ID for the selected shipper is " & _ Me.Controls("Ship Method Group").Value End Sub