Attiecas uz
Objekts CheckBox |
Objekts OptionButton |
Objekts ToggleButton |
Katram vadīkla programmā opciju grupa ir skaitliska vērtība, ko varat iestatīt rekvizītā OptionValue. Lasāms/rakstāms Long.
izteiksme.OptionValue
expression Obligāti. Izteiksme, kas atgriež vienu no objektiem sarakstā Attiecas uz.
Piezīmes
Atlasot vadīklu, opciju grupai tiek piešķirts skaitlis. Ja opciju grupa ir saistīta ar lauku, atlasītās vadīklas rekvizīta OptionValue vērtība tiek glabāta laukā.
Piemēram, šī reģiona opciju grupa ir piesaistīta laukam Region programmā tabula. Pogai Eiropa rekvizīta OptionValue iestatījums ir 1, pogai Āzija iestatījums ir 2, bet pogai Āfrika iestatījums ir 3. Kad viena no šīm pogām ir atlasīta, reģiona opciju grupas vērtība būs identiska atlasītās vadīklas rekvizīta OptionValue iestatījumam. Šajā gadījumā tā kā reģiona opciju grupa ir saistīta ar lauku Region, šī lauka vērtība tabulā arī ir 2.
Piezīme.: Rekvizīts OptionValue attiecas tikai uz vadīklām izvēles rūtiņa, opciju poga un pārslēgšanas poga opciju grupā.
Varat iestatīt rekvizītu OptionValue, izmantojot vadīklas rekvizītu lapa, makro vai Visual Basic for Applications (VBA) kodu.
Ja vien pats nemaināt rekvizītu OptionValue, pirmajai vadīklai, kuru novietojat opciju grupā, ir vērtība 1, otrajai vadīklai ir vērtība 2 un tā tālāk.
Rekvizīts OptionValue ir pieejams tikai tad, ja vadīkla atrodas opciju grupas vadīklā. Ja izvēles rūtiņa, pārslēgšanas poga vai opcijas poga nav opciju grupā, vadīklai nav rekvizīta OptionValue. Tā vietā katrai šādai vadīklai ir rekvizīts ControlSource, un katras vadīklas vērtība būs True, ja tā ir atlasīta, vai False, ja tā nav atlasīta.
Piemērs
Šajā piemērā iestatīts rekvizīts OptionValue trīs opciju pogām opciju grupā "Piegādes metožu grupa", kad tiek atvērta forma. Kad opciju grupā ir atlasīta opcijas poga, parādās ziņojums, kurā norādīts piegādātāja piešķirtais ID numurs.
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