Vb.Net 動態注冊控件的事件

由於控件已經定義了委派方法與事件，因此只需定義事件處理過程，並把該過程注冊就行了

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, _

      ByVal e As System.EventArgs) Handles Button1.Click

        Dim button2 As Button = New Button() ''生成一個 按鈕 控件

        Me.Controls.Add(button2) ''把生成的按紐 控件加入窗體中

        button2.Location = New Point(30, 20) ''定位新生成的按鈕 控年

        button2.Name = "bt2" ''為 新成生的控件定義 一個 唯一標識符，以便在注銷時能找到它

        AddHandler button2.Click, AddressOf aa ''為新生成的控件注冊 一個 點擊 事件

    End Sub

    Sub aa(ByVal sender As System.Object, ByVal e As System.EventArgs) ''事件處 理程序

        MsgBox("事件被觸發")

    End Sub

    Private Sub Form1_Leave(ByVal sender As System.Object, _

      ByVal e As System.EventArgs) Handles MyBase.Leave

        RemoveHandler Me.Controls("bt2").Click, AddressOf aa ''離開時，注銷該事件

    End Sub

End Class