关于VB急。复选框的全选，全清问题。

来源：百度知道编辑：UC知道时间：2024/06/20 06:37:35

单击上面的全选复选框可以全部选中下面的，单击全清复选框可以将选中的全部清除。求完整代码，谢谢。包括从创建复选框开始，感激不尽~·

如果你只用一个复选框来控制全选和全清，可以用楼上那个的方法，可以加一句：if check1.value=1 then

check1.caption="全清"

else

check1.caption="全选"

如果你分别用两个复选框控制全清和全选，代码如下

========================================

先画两个复选框，check1为全选，复制n个check2，一共就有n+1个check2，再画一个check3（全清）

=========================================

Private Sub Check1_click()

If Check1.Value = 1 Then

For i = 0 To n

Check2(i).Value = Check1.Value

Next i

Check3.Value = 0

End If

End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then

For i = 0 To n

Check2(i).Value = 0

Next i

Check1.Value = 0

End If