在限制下。怎样使鼠标勾选 选不上呢?高人指点、、、、
实验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
