Question

VB 中我需要限制复选框被选的个数

我建立了10复选框，有什么方法能限制用户只能选中其中的5个复选框？超过5个后提示“已经超过5个了之类”的提示

Answer 1

Option Explicit
Dim intCheck As Integer

Private Sub Check1_Click(Index As Integer)
If Check1(Index).Value = 1 Then
If intCheck >= 5 Then
MsgBox "已经选了5个了！", vbYesNo, "系统提示"
Check1(Index).Value = 0
Exit Sub
Else
intCheck = intCheck + 1
End If
Else
intCheck = intCheck - 1
End If
End Sub

Private Sub Form_Load()
intCheck = 0
End Sub

Answer 2

设置 vlue 哪项
if 5个复选框的viue为ture 也就是返回值是1
求之和 如果和大于5
msg(……已经超过5个了之类……)
如果和小于5
无操作

Answer 3

你这样的做法最好是把所有的81个checkbox都做成一个控件数组 Private Sub Check8_Click(Index As Integer) Dim i As Integer Dim num As Integer num = 1 For i = 1 To 9 If Check8(i).Value = 8 Then nu