在运行时创建动态复选框

Question

Dim offset = 200
    For i = 0 To Form1.ListBox2.Items.Count - 1

        Dim cBox = New CheckBox()
        Me.Controls.Add(cBox)
        cBox.Location = New Point(80, offset)
        cBox.Text = Form1.ListBox2.Items.Item(i)
        offset = offset + 50
        ListBox1.Items.Add(Form1.ListBox2.Items.Item(i))

    Next i

我正在使用此代码在运行时创建一个复选框。问题是如何将 checkChanged 事件放在这些复选框中。期待答案。尽快。

Answer 1

您可以使用AddHandler 命令注册事件处理程序。

AddHandler cBox.checkChanged, AddressOf checkChangedHandler

checkChangedHandler 是这样的函数：

Sub checkChangedHandler(sender As Object, e As EventArgs)
        Console.WriteLine("Check Changed")
End Sub