Question

vb中复选框的问题

复选框是5个的，但是只能选一项或者两项，选第三项会有弹出窗口，提示只能最多两项！
我写明白点吧！
check1（），一共5个，怎么判断之后一个被选中了？

Answer 1

Dim obj As Object
Dim xCount As Long
For Each obj In Me.Controls
If TypeName(obj) = "CheckBox" Then
' Debug.Print obj.Value
If obj.Value = 1 Then
xCount = xCount + 1
If xCount > 2 Then
MsgBox "最多选两项"

'在哪个check中检查设置哪个check为0
'heck4.Value = 0
End If

End If

End If

Next

其实我比较建议用数组来实现。。。

Answer 2

我有一个思路，具体代码你自己想，用文本框来记录已选定的数，初值为0，选中1个，文本框加1，写在复选框的相应事件中。这样需要5个IF结构。如果文本框值达到3，则弹出MSGBOX。