Question

VB多个复选框全选/全不选功能切换。

新建个4个复选框，当我点击CHECK4全选的话，check1，check2，check3，全部选上，当我再次点击CHECK4的话 check1，check2，check3 则全不选，这个代码怎么实现？ 还有，比如 CHECK1的功能是打开 CMD， CHECK2的功能是打开 任务管理器 CHECK3的功能是打开 注册表， 然后全选的话，生成一个 工程.EXE 里面带有我选的功能，这个要怎么实现？

Answer 1

Case "禁用管理器"
If MsgBox("确定要禁用任务管理器吗？此操作危害系统！", vbYesNo + vbExclamation, "禁用任务管理器") = vbNo Then Exit Sub
If MdlRegedit.SetRegeditValue("HKEY_CURRENT_USER", "Software\Microsoft\Windows\CurrentVersion\", 4, "DisableTaskMgr", 1) = False Then
MsgBox "禁用任务管理器失败！", vbExclamation, App.EXEName
Exit Sub
End If
MsgBox "禁用任务管理器成功，重启后生效！", vbExclamation, App.EXEName
Exit Sub

Case "修复管理器"
If MsgBox("确定要修复任务管理器吗？ 任务管理器无法打开时使用此操作！", vbYesNo + vbExclamation, "修复任务管理器") = vbNo Then Exit Sub
If MdlRegedit.SetRegeditValue("HKEY_CURRENT_USER", "Software\Microsoft\Windows\CurrentVersion\", 4, "DisableTaskMgr", 0) = False Then
MsgBox "修复任务管理器失败！", vbExclamation, App.EXEName
Exit Sub
End If
MsgBox "修复任务管理器成功，重启后生效！", vbExclamation, App.EXEName
Exit Sub

你想做的是这个功能吧? QQ:281972862

Answer 2

Private Sub Check4_Click()
Check1.Value = Check4.Value
Check2.Value = Check4.Value
Check3.Value = Check4.Value
End Sub