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事件。期待着回答。的ASAP。

Answer 1

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

AddHandler cBox.checkChanged, AddressOf checkChangedHandler

其中checkChangedHandler是这样的函数：

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

在运行时创建动态复选框

1 个答案: