vb.net - 在运行时创建动态复选框

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事件放在这些复选框中。期待一个答案。尽快。

最佳答案

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

AddHandler cBox.checkChanged, AddressOf checkChangedHandler

其中checkChangedHandler是这样的函数:

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