check复选框数组问题

来源：百度知道 编辑：UC知道 时间：2024/05/29 11:05:06
帮忙精简代码，怎么用数组??

If Check1(0).Value = 1 Then Check1(0).ForeColor = &HFF0000
ElseIf Check1(0).Value = 0 Then
Check1(0).ForeColor = &H0&
End If
'------------------------------------------------------
If Check1(1).Value = 1 Then Check1(1).ForeColor = &HFF0000
ElseIf Check1(1).Value = 0 Then
Check1(1).ForeColor = &H0&
End If
'------------------------------------------------------
If Check1(2).Value = 1 Then Check1(2).ForeColor = &HFF0000
ElseIf Check1(2).Value = 0 Then
Check1(2).ForeColor = &H0&
End If
'------------------------------------------------------
If Check1(3).Value = 1 Then Check1(3).ForeColor = &HFF0000
ElseIf Check1(3).Value = 0 Then
Check1(3).ForeColor = &H0&
End If
'------------------------------------------------------
If Check1(4).Value = 1 T

Private Sub Command1_Click()
For i = 0 To 11
If Check1(i).Value = 1 Then
Check1(i).ForeColor = &HFF0000
ElseIf Check1(i).Value = 0 Then
Check1(i).ForeColor = &H0&
End If
Next i
End Sub

for i=0 to 11
If Check1(i).Value = 1 Then
Check1(i).ForeColor = &HFF0000
ElseIf Check1(i).Value = 0 Then
Check1(i).ForeColor = &H0&
End If
next i

Private Sub Check1_Click(Index As Integer)
Check1(Index).ForeColor = Check1(Index).Value * &HFF0000
End Sub

Private Sub Check1_Click(Index As Integer)
Check1(Index).ForeColor = Check1(Index).Value * vbRed
End Sub