Ypatybė OptionValue

Taikoma

Kiekvienas parinkčių grupėvaldiklis turi skaitinę reikšmę, kurią galite nustatyti naudodami ypatybę OptionValue . Skaityti/rašyti Long.

reiškinys.OptionValue

reiškinys Būtina. Reiškinys, kuris pateikia vieną iš sąrašo „Taikoma“ objektų.

Pastabos

Pasirinkus valdiklį, skaičius priskiriamas parinkčių grupei. Jei parinkčių grupė susieta su lauku, pasirinkto valdiklio ypatybės OptionValue reikšmė saugoma šiame lauke.

Pavyzdžiui, ši parinkčių grupė Regionas susieta su lauku Regionas lentelė. Mygtukas Europa turi ypatybės OptionValue parametrą 1, mygtukas Azija turi parametrą 2, o mygtuko Afrika parametrą – 3. Pasirinkus vieną iš šių mygtukų, srities parinkčių grupės reikšmė bus tokia pati kaip pasirinkto valdiklio ypatybės OptionValue parametras. Šiuo atveju, kadangi parinkčių grupė Regionas susieta su lauku Regionas, šio lauko reikšmė lentelėje taip pat lygi 2.

Ypatybę OptionValue galite nustatyti naudodami valdiklio ypatybės lapas, makrokomanda arba "Visual Basic for Applications" (VBA) kodą.

Jei patys nepakeisite ypatybės OptionValue, pirmasis valdiklis, kurį įdėsite į parinkčių grupę, turės reikšmę 1, antrasis valdiklis turės reikšmę 2 ir t. t.

Ypatybė OptionValue prieinama tik tada, kai valdiklis įdedamas į parinkčių grupės valdiklio vidų. Kai žymės langelis, perjungimo mygtukas arba parinkties mygtukas nėra parinkčių grupėje, valdiklis neturi ypatybės OptionValue. Vietoje to, kiekvienas toks valdiklis turi ypatybę ControlSource ir kiekvieno valdiklio reikšmė bus True, jei pasirinktas, arba False, jei nepasirinktas.

Pavyzdys

Tolesniame pavyzdyje ypatybė OptionValue nustatoma trims parinkčių mygtukams parinkčių grupėje „Siuntimo būdo grupė“, kai atidaroma forma. Pasirinkus parinkčių grupės parinkties mygtuką, rodomas pranešimas, pateikiantis siuntėjo priskirtą ID numerį.

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