下拉列表,不方便操作。
建议用复选框。
在复选框响应事件里判断一下。
如果当前点击的控件为选中,那么就清掉其它选项的选择。这个直接使用循环直接清就行了。
否则不清了。
Private Sub Check1_Click(Index As Integer)
Dim ck As CheckBox
'定义变量
If Check1(Index).Value = 1 Then
'当前是否选择
For Each ck In Check1
'循环开始
If ck.Index <> Index Then
'是否是当前控件
ck.Value = 0
'不是,则设置未选择
End If
Next
End If
End Sub