请句option这个控件怎样使用option数组？

Question

我这样写VB说我不对：
select case option1(1)
  case 1
  msgbox "1"
  case 2
  msgbox "2"
  ....
  ....
end select
一共有7个option控件的一个数组

Answer 1

Private Sub Command1_Click()
    Dim lngIndex As Long
    
    For lngIndex = Option1.LBound To Option1.UBound
        If Option1(lngIndex).Value Then
            MsgBox lngIndex
            Exit For
        End If
    Next
End Sub

Answer 2

Private Sub Option1_Click(Index As Integer)
    Select Case Index
    Case 1
        MsgBox "1"
    Case 2
        MsgBox "2"
    '....
    '....
    End SelectEnd Sub

Answer 3

如果我是要按下command按钮时判断option数组中选中的是哪一个，那应该怎么写？

Answer 4

Private Sub Form_Load()
Load Option1(1)
Option1(1).Visible = True
Option1(1).Top = Option1(0).Top + Option1(0).Height
option1(1).left=Option1(0).left
End SubPrivate Sub Option1_Click(Index As Integer)
Select Case Index
Case "0"
  MsgBox "0"
Case "1"
  MsgBox "1"
End Select
End Sub

Answer 5

只能分开判断
Private Sub Command1_Click()
If Option1(0).Value = True Then
    MsgBox "select option1(0)"
End If
End Sub

Answer 6

foolishtiger(吴文智)　说的能满足你的要求
你运行过没有

Answer 7

如果我是要按下command按钮时判断option数组中选中的是哪一个，那应该怎么写？ do you see the first page of foolishtiger(吴文智)?
foolishtiger(吴文智)　(2001-11-26 15:53:34)  得0分 
Private Sub Command1_Click()
    Dim lngIndex As Long
    
    For lngIndex = Option1.LBound To Option1.UBound
        If Option1(lngIndex).Value Then
            MsgBox lngIndex
            Exit For
        End If
    Next
End Sub
 

Answer 8

TO：xiongwenbin(熊猫)　
问题解决了吗？

Answer 9

如果我分开判断我早就用了，如果要分开判断那我还用数组干什么？那还不如option1,option2,option3....不是一样吗？