如何在VB6中使用复选框数组

Question

大家好，我需要有关如何使用复选框数组的帮助。我有4个复选框检查1（0）检查1（1）检查1（2）检查1（3）如果1个复选框将单击，其他3个将被禁用，而当我取消选中时，四个将被启用，反之亦然

Private Sub Check1_Click(Index As Integer)
Dim i As Long, ChkCount As Long
  ChkCount = 0
For i = 0 To 3
If Check1(i).Value = 1 Then ChkCount = ChkCount + 1
   Next i
   For i = 1 To 3
If ChkCount < 1 Then
Check1(i).Enabled = True
   Else
If Check1(i).Value = 0 Then Check1(i).Enabled = False
   End If
Next i
    End Sub

这是我的代码，但是check1（0）不会禁用

我将其修复，谢谢您的回复。第6行出现错误，应该是i = 0到3

Answer 1

Private Sub check1_Click(Index As Integer)

Select Case Index

Case 0
'Checks or unchecks the first checkbox and gives the other checkboxes the opposite values
check(0).Checked = Not check(0).Checked
check(1).Checked = Not check(0).Checked
check(2).Checked = Not check(0).Checked
check(3).Checked = Not check(0).Checked

Case 1
'Checks or unchecks the second checkbox and gives the other checkboxes the opposite values
check(1).Checked = Not check(1).Checked
check(0).Checked = Not check(1).Checked
check(2).Checked = Not check(1).Checked
check(3).Checked = Not check(1).Checked

Case 2
'Checks or unchecks the third checkbox and gives the other checkboxes the opposite values
check(2).Checked = Not check(2).Checked
check(0).Checked = Not check(2).Checked
check(1).Checked = Not check(2).Checked
check(3).Checked = Not check(2).Checked

Case 3
'Checks or unchecks the fourth checkbox and gives the other checkboxes the opposite values
check(3).Checked = Not check(3).Checked
check(0).Checked = Not check(3).Checked
check(1).Checked = Not check(3).Checked
check(2).Checked = Not check(3).Checked

End Select

End Sub

Answer 2

这是一个有效的演示，我刚刚在VB6中进行了测试。