在限制下。怎样使鼠标勾选 选不上呢?高人指点、、、、
实验1.3 设计一个表决器,表决器中有6个候选项(如北京、上海、深圳、广州、武汉、南京),单选按钮有1、2、3、4,当选择3时,只能选择3个候选城市,通过程序自动限制复选框的选择数量,【提交】后将选择的城市显示在编辑框中,如图1-3所示。

就是这个东西 在限制下 怎样才能选不上呢?或者别的好方法?求助。来自学者

Dim a As Integer '判断复选框个数 Dim b As Integer '判断单选框个数 Dim x As Integer '用于循环显示选项 Private Sub Check1_Click(Index As Integer) If Check1.Item(Index).Value = 1 Then '如果是勾选 If a < b Then '如果同时在设置数量范围内 a = a + 1 '记录选择个数 Else Check1.Item(Index).Value = 0 '如果在范围外,则不选择 a = a + 1 End If ElseIf Check1.Item(Index).Value = 0 Then '如果是取消勾选 a = a - 1 '记录选择个数 End If Text1.Text = "" '清空文本框,以用来重新显示选择项 For x = 0 To 5 If Check1.Item(x).Value = 1 Then Text1.Text = Text1.Text & " " & Check1.Item(x).Caption End If Next x End Sub Private Sub Form_Load() Dim i As Integer a = 0 b = 1 End Sub Private Sub Option1_Click(Index As Integer) '每次选择,清空以前选项 b = Index + 1 For i = 0 To 5 Check1.Item(i).Value = 0 Next i a = 0 '同时清空记录数 End Sub