Question

VB checkbox全选的问题

跟大家请教这样一个问题：
比如说有三个checkbox分别为checkA, checkB, checkC，另外还有一个checkAll（全选的复选框），checkAll的代码如下：
Private Sub CheckAll_Click()
If CheckAll.Value = 1 Then
CheckA.Value = 1
CheckB.Value = 1
CheckC.Value = 1
ElseIf CheckAll.Value = 0 Then
CheckA.Value = 0
CheckB.Value = 0
CheckC.Value = 0
End If
End Sub
可以实现全选与全不选，但是如果全选后，我反选A,B,C其中任意一个，如何让checkAll也变为0，反之，如果分别点选A, B, C后，checkAll也会变为1

Answer 1

Private Sub CheckA_Click()
CheckAll.Value = -(CheckA.Value = 1 And CheckB.Value = 1 And CheckC.Value = 1)
End Sub

Private Sub CheckB_Click()
CheckA_Click
End Sub

Private Sub CheckC_Click()
CheckA_Click
End Sub

追问

全选复选框怎么办？用我之前的代码有问题。选第一次是只有B和C选中，选第二次时才会把A选中，另外A, B, C全部选中后，反选任意一个，所有的都会被反选。

追答

Private Sub CheckA_Click()
If CheckAll.Tag = "" Then
CheckAll.Tag = "1"
CheckAll.Value = -(CheckA.Value = 1 And CheckB.Value = 1 And CheckC.Value = 1)
CheckAll.Tag = ""
End If
End Sub

Private Sub CheckB_Click()
CheckA_Click
End Sub

Private Sub CheckC_Click()
CheckA_Click
End Sub

Private Sub CheckAll_Click() '你原来的CheckAll_Click要改成这个
If CheckAll.Tag = "" Then
CheckAll.Tag = "1"
CheckA.Value = CheckAll.Value
CheckB.Value = CheckAll.Value
CheckC.Value = CheckAll.Value
CheckAll.Tag = ""
End If
End Sub