征解: 如何在大量的 Options 中,较简单的快速找出选中(Value=True)的 Option?

[playyuer]

分两种情况:
1.控件数组
2.非控件数组

[leskey]

我也觉得没有什么好的方法,就但他们说的方法做吧:先按容器分类,然后再用for找好了

[weedcloud1]

Dim i As Variant
Dim opt As OptionButton
For Each i In Controls
If TypeOf i Is OptionButton Then
If i.Value = True Then
Set opt = i
Exit For
End If
End If
Next
opt.Caption = "OK!"
OPT就是被选成TRUE的OPTIONBUTTON的引用

[lanren_me]

建立组：
Private Sub Option1_Click(index As Integer)
Dim a As Integer
a = index 'a即为选中的Option
MsgBox a
End Sub

[lanren_me]

非组情况只好用循环啦

[shuyi]

如果是控件数组就简单点用个for循环判断
如果是非控件数组那就一个一个判断咯

[wbdx]

循环啊
假设 option1 数组
Dim ttt as vb.optionbutton
for each ttt In option1
if ttt.value = true then
msgbox "option1(" & ttt.index & ")=true"
exit for
end if
next

非数组
Dim ttt as vb.control
for each ttt in form1.controls
if typeof ttt is vb.optionbutton
if ttt.value=true then
msgbox "option1(" & ttt.index & ")=true"
exit for
end if
ned if
next


注意：没有测试

[songyangk]

Options按钮又可以称做是单选钮，也就是说在一个容器内只能有一个Option的Value是True，所有如果只有一个容器那么在循环的时候找到第一个Value为True的之后就不会再有了。如果有多个容器，可以先定义这些Option是在哪些容器里，然后每一组Option里再循环找第一个Value为True的就可以了。

[zeng_zhh]

非数组
Dim tt As OptionButton
For Each tt In Me.Controls
If tt.Value = True Then
..
Exit For
End If
Next