Dim butt As New System.Windows.Forms.Control
For Each butt In Me.Controls
If Mid(butt.Name, 1, 4) = "Butt" Then
AddHandler butt.Click, AddressOf Button2_Click
End If
Next
这样写:
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged