создание динамического флажка во время выполнения

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