UC知道VB 限定复选项数量，超过时不能按下（最后很重要）
来源：百度知道 编辑：UC知道 时间：2024/06/01 13:11:04
文字步骤是：
做个数组check(0-10)
当check(0-10)按下时n+1，
当n=5时，则不能按下
脚本是：
Private Sub Check1_Click(Index As Integer)
Dim i As Integer
Dim num As Integer
num = 0
For i = 0 To 9
If Check1(i).Value = 1 Then
num = num + 1
End If
Next
If num > 5 Then
（这里应该写什么，达成不能按下的目的）
End If
End Sub
没说清楚。如图，有N个选项，最多只能勾4个，当勾足4个后，不能再选；当不满足4个选项时，可以勾选
做个数组check(0-10)
当check(0-10)按下时n+1，
当n=5时，则不能按下
脚本是：
Private Sub Check1_Click(Index As Integer)
Dim i As Integer
Dim num As Integer
num = 0
For i = 0 To 9
If Check1(i).Value = 1 Then
num = num + 1
End If
Next
If num > 5 Then
（这里应该写什么，达成不能按下的目的）
End If
End Sub
没说清楚。如图，有N个选项，最多只能勾4个，当勾足4个后，不能再选；当不满足4个选项时，可以勾选
If num > 5 Then
' （这里应该写什么，达成不能按下的目的）
Check1(Index).Value = vbUnchecked
Debug.Print "最多选5项"
End If
check(i).enable=false
Check1(index).value=0
Check1.Enabled = False