Question

VB怎么设置一个checkbox数组可选择个数

Answer 1

Dim N As Long
Private Sub Check1_Click(Index As Integer)
Satic Num As Long '记录当前选中数目
Num = IIf(Check1(Index).Value, Num + 1, Num - 1)
If Num > N Then '如果当前选中数目大于设定值后 将本次选择取消并提示。
Check1(Index).Value = False
MsgBox "最多选择 " & N & "项"
End If
End Sub
Private Sub Form_Load()
N = 3 '最多能选择的数目
End Sub

Answer 2

能说清楚一点吗？最好举个例子

追问

比如说一道多选选择题，有四个答案，但是最多选择2个答案，怎么写？

追答

Private Sub Check1_Click(Index As Integer)
Dim n, i
For i = 0 To 3
If Check1(i).Value = vbChecked Then n = n + 1
Next
If n > 2 Then Check1(Index).Value = vbUnchecked
End Sub