检测VB.Net中更改的多个控件

Question

如何控制将在应用程序执行过程中自动创建的一些控件？

我的添加控制

  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  Dim NewCheckbox As CheckBox
   For i As Integer = 2 To 14
                NewCheckbox = New CheckBox
                NewCheckbox.Size = New Drawing.Size(15, 14)
                NewCheckbox.Location = New Point(98, 40)
                NewCheckbox.Name = "cbcard" & i
    Me.Controls.Add(NewCheckbox)
    next

我的复选框控件添加，我举了一个创建复选框控件的例子，但它应该对任何形式的控件都有效，无论是文本框还是按钮。

如何检测这些未创建但将在执行过程中创建的控件？复选框名称将为cbcard1、cbcard2、cbcard3，最多为14。

但我希望这是一个处理程序的形式，或者它可能应该与计时器一起工作。

  Private Sub Checkbox_Changed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Checkbox.Changed
            If Checkbox.checked = true
                MsgBox("")
            End If
        End Sub

Answer 1

您可以使用AddHandler语法订阅事件。

For i As Integer = 2 To 14
    NewCheckbox = New CheckBox
    NewCheckbox.Size = New Drawing.Size(15, 14)
    NewCheckbox.Location = New Point(98, 40)
    NewCheckbox.Name = "cbcard" & i
    Me.Controls.Add(NewCheckbox)
   'subscribe to the CheckChanged event (as an example)
   AddHandler NewCheckbox.CheckChanged, AddressOf Checkbox_Changed
Next
'all dynamically created checkboxes were subscribed to this event
Private Sub Checkbox_Changed(ByVal sender As System.Object, ByVal e As System.EventArgs)
    'sender is the specific checkbox that was changed out of all subscribed checkboxes
    Dim checkBox = DirectCast(sender, CheckBox)
    If checkbox.checked = true Then MsgBox(checkBox.Name)
End Sub