主题：动态添加控件

为第三方控件定义事件过程

本节内容针对专业程序员，一般用户可以忽略。

下面用一个简单的例子，说明如何添加第三方控件，并为其定义事件过程。
以.Net Framework 2.0中的Button控件为例。

1、在全局代码中加入用于处理Button控件的Click事件的过程：

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
   MessageBox.Show("这是自定义事件!")
End Sub

提示：过程必须是Public的，否则无法调用。

2、新建一个窗口，在窗口的AfterLoad事件加入代码：

Dim ct As New Windows.Forms.Button
ct.Text = "我的按钮"
e.Form.Panel.Controls.Add(ct)
AddHandler ct.Click, AddressOf Button1_Click

3、现在打开窗口，单击按钮，可以发现执行了我们在全局代码中为此按钮定义的Click事件代码。

提示：

为第三方控件指定事件过程的语句是AddHandler，此语句的语法为：