检测 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

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

Detect multiple control changed in VB.Net

vb.net