如何使复选框实现单选框功能.
既两个CheckBox实现一对OptionButton的功能,
选这个,那个就取消.
[解决办法]
做成控件数组，遍历一下，除了选中的那个，其它的全清
Private Sub Check1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
For i = 0 To Check1.ubound
If i <> Index Then
Check1(i).Value = 0
End If
Next
End Sub
[解决办法]
好好的复选框，非要让它实现单选按钮的功能，真是强人所难
用控件数组吧，一组复选框属于同一个数组，这样好处理
Private Sub Check1_Click(Index As Integer)
If Check1(Index).Tag = "code " Then
Exit Sub
Else
If Check1(Index).Value = 0 Then
Check1(Index).Value = 1
Else
For i = 0 To Check1.Count - 1
If i <> Index Then
Check1(i).Tag = "code "
Check1(i).Value = 0
Check1(i).Tag = " "
End If
Next
End If
End If
End Sub
