1个回答
2010-10-18
展开全部
先画一个复选框组check1(0),check1(1),check1(2),
画几个根据情况定:
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 2
Check1(i).Value = 1
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer
For i = 0 To 2
Check1(i).Value = 0
Next i
End Sub
画几个根据情况定:
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 2
Check1(i).Value = 1
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer
For i = 0 To 2
Check1(i).Value = 0
Next i
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询