请教CheckBox控件实现和OptionButton控件一样的功能遇到的一个小问题..在线等...

[guxing110]

新建一个窗体。在窗体上面添加四个CheckBox是数组０－2。控件数组名是Check1
然后添加以下代码。

Private Sub Check1_Click(Index As Integer)
Select Case Index
Case 0
Check1.Item(0).Value = 1
Check1.Item(1).Value = 0
Check1.Item(2).Value = 0
Case 1
Check1.Item(0).Value = 0
Check1.Item(1).Value = 1
Check1.Item(2).Value = 0
Case 2
Check1.Item(0).Value = 0
Check1.Item(1).Value = 0
Check1.Item(2).Value = 1
End Select
End Sub


我想要实现的功能是当按其中一个CheckBox时根据Index值。只选中Index的那个。其余的取消选中。

上面那些代码说堆栈空间溢出。我一步一步调式时发现选了好几次。
在线等。。

[of123]

Private Sub Check1_Click(Index As Integer)
If Check1.Item(Index) = 0 Then Exit Sub
Select Case Index
Case 0
Check1.Item(1).Value = 0
Check1.Item(2).Value = 0
Case 1
Check1.Item(0).Value = 0
Check1.Item(2).Value = 0
Case 2
Check1.Item(0).Value = 0
Check1.Item(1).Value = 0
End Select
End Sub

[guxing110]

谢谢...