Question

VB复选框问题check

窗口中有64个复选框(1-64),怎样设置只能选取第1个复选框和任意1个复选框,当选择第3个复选框的时候只保留第1个复选框和最后选择的复选框
比如现在点了1和2,再点5时,会自动将2去掉,只保留1和5的复选框

Answer 1

Private Sub Check1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
'遍历，清空除了第一个以外所有Check1的选中（跳过第一个为了保留第一个的选中属性）
For i = 1 To 63
Check1(i).Value = 0
Next
Check1(Index).Value = 1 '选中刚刚点击的
End Sub

Answer 2

'添加复选框CheckBox1数组，Index从0到63
'在CheckBox1_Click事件中添加代码
Dim i As Integer
If Index > 0 Then
For i = 1 To 63
CheckBox1(i).Value = False
Next
CheckBox1(Index).Value = True
End If

追问

If Index > 0 Then
For i = 1 To 63
Check2(i).Value = False
Next
Check2(Index).Value = True
End If

出现错误了,Check2(Index).Value = True 提示说是无效属性值

追答

Check2(Index).Value = -1

Answer 3

老实说你题目我没弄懂```假如按你说的点了1和2,再点5时,会自动将2去掉,如果此时再点一个3怎么办，去掉5吗？还是重新把1和5都去掉？直接把3视为第一个按下的复选框？

Answer 4

Private Sub Check1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Long
If Index <> 0 Then
For i = 1 To Check1.Count - 1
If i <> Index Then
Check1(i).Value = 0
End If
Next
End If
End Sub