런타임에 동적 체크 박스 생성

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 명령을 사용하여 이벤트 처리기를 등록 할 수 있습니다. checkChangedHandler이 같은 기능입니다

AddHandler cBox.checkChanged, AddressOf checkChangedHandler 

:

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