窗体内的语句简写求助，谢谢taller老师！

Lost_in_Star

1. Private Sub CheckBox7_Click()
   
2.   Dim cb As Control
   
3.   If CheckBox7.Value = True Then '勾选
   
4.     For Each cb In Me.Controls
   
5.       If TypeName(cb) = "CheckBox" Then
   
6.         cb.Value = True
   
7.       End If
   
8.     Next cb
   
9.   Else '取消勾选
   
10.     For Each cb In Me.Controls
    
11.       If TypeName(cb) = "CheckBox" Then
    
12.         cb.Value = False
    
13.       End If
    
14.     Next cb
    
15.   End If
    
16. End Sub

复制代码

Lost_in_Star

Private Sub CheckBox7_Click()
  Dim cb As Control
  If CheckBox7.Value = True Then '勾选
    For Each cb In Me.Controls
      If TypeName(cb) = "CheckBox" Then
        cb.Value = True
      End If
    Next cb
  Else '取消勾选
    For Each cb In Me.Controls
      If TypeName(cb) = "CheckBox" Then
        cb.Value = False
      End If
    Next cb
  End If
End Sub

ykcbf1100

简化一下，供参考。。。

1. Private Sub CheckBox7_Click()
   
2.     st = Array(CheckBox3.Value, CheckBox6.Value, CheckBox11.Value, CheckBox12.Value, _
   
3.         CheckBox26.Value, CheckBox27.Value, CheckBox33.Value, CheckBox51.Value)
   
4.     For x = 0 To UBound(st)
   
5.         st(x) = IIf(CheckBox7.Value = True, True, False)
   
6.     Next
   
7. End Sub
   
8. 
   

复制代码