VB.NET还是比较常用的，于是我研究了一下VB.NET动态控件，在这里拿出来和大家分享一下，希望对大家有用。
本文的讨论也将着眼于这两种情况。首先是当程序员需要动态建立一个控件并将代码附着于控件之上时。例如，你或许想创建一个链接列表，但是不知道需要创建链接的数量或是链接中会出现什么样的数据。第二种是当程序员需要定义代码以反映出特殊需求的时候。例如，你或许要执行能反映用户系统配置的代码。
类似上述的情况当然不会每天都上演。事实上，它们只在非常情况下才出现。然而，作为程序员，仍然要意识到.NET为解决动态情形提供了方案。有了正确的技巧，你就可以写出能灵活处理动态情况的应用程序了。
使用VB.NET动态控件
许多程序员总会遇到需要创建VB.NET动态控件的时候。我们所展示的例子中程序员向FlowLayoutPanel中添加了LinkLabels.或许你可以个这样的设置来记录和保存常用的URL，文件，网络地址或是其他资源所在位置的数值。这一示例没有真正保存链接，但是你可以使用XML序列化功能来实现保存。
每次当用户点击Test按钮时，示例代码就会动态创建一个新的LinkLabel控件。真正的演示代码并不复杂。以下就展示了创建这类控件以及将控件放入FlowLayoutPanel，lstLabel中通常所需要做的一切。
向FlowLayoutPanel中添加新的链接
- Private Sub btnTest_Click()
- Handles btnTest.Click
- ' Create a link.
- Dim NewLink As LinkLabel = New LinkLabel()
- ' Add some properties to it.
- NewLink.Text = DateTime.Now
- .ToLongTimeString()
- ' Set the click event handler.
- AddHandler NewLink.Click,
- AddressOf NewLink_Click
- ' Place the button on the form.
- lstLinks.Controls.Add(NewLink)
- End Sub
如你所料，该代码开始的时候创建了一个新的LinkLabel并为其赋予了一些值。这一示例使用的是当前时间。你的代码或许能够对某一真实资源进行访问。
请注意该代码也向链接的Click事件中指定了一个处理程序。你必须使用示例中的AddHandler技巧，因为普通的Handles关键词路径不起作用。一方面，设计应用程序的时候你并不清楚控件的名称。即便你为控件指定了一个名称，你也不知道用户要创建的控件数量，所以我们没有办法清楚会有多少处理程序会被创建。处理程序的代码与控件代码类似，因此没有必要创建多个处理程序。用于这个示例的处理代码见例二。例二：处理VB.NET动态控件点击事件
- Private Sub NewLink_Click( _ ByVal sender As System.Object, ByVal e As System.EventArgs)
- ' Verify that you actually have a LinkLabel
- If Not sender.GetType() Is GetType(LinkLabel) Then
- MessageBox.Show("Wrong control type provided!")
- Return
- End If
- ' Convert the input sender to a Button.
- Dim ThisLink As LinkLabel = sender
- ' Show that we have the correct button.
- MessageBox.Show("You created this link at: " + ThisLink.Text)
- End Sub
你可能已经注意到例一中的事件处理器使用的是宽松代表——它没有将ByVal发送器作为System.Object，也没有将ByVal e作为System.EventArgs作为参数因为它不需要这二者。然而，当你创建一个事件处理器来创建VB.NET动态控件时，通常你需要将ByVal发送器作为 System.Object参数，这意味着将这两者都包含其中。
有些程序员在创建事件处理器的时候会出现一个错误，即没有检查传入控件的类型。发送器对象可能包含多选择，而如果未对事件处理器进行事件处理类型的设置，那么你就会面临更多的选择。我们的示例代码一开始就检查了传入控件对象的类型。这样以来发送器就不会像下面所展示的代码一样：
- Private Sub btnTest2_Click() Handles btnTest2.Click
- ' Create a link.
- Dim NewButton As Button = New Button()
- ' Add some properties to it.
- NewButton.Text = DateTime.Now.ToLongTimeString()
- ' Set the click event handler.
- AddHandler NewButton.Click, AddressOf NewLink_Click
- ' Place the button on the form.
- lstLinks.Controls.Add(NewButton)
- End Sub
此代码在FlowLayoutPanel中创建了一个按钮，大多数情况下这都能正常运行，除非事件处理器不按照按钮所示的进行操作。如果你打算服务多个控件类型，那么每个控件类型都需要一个独特的处理。你可以使用多事件处理器或者为某些类型提供选择标准。
NewLink_Click（）事件处理器照常将传入发送器转换成指定类型，在这个示例中则是LinkLabel.该代码可以访问LinkLabel属性并能用其他方式进行互动。在我们的示例中，只显示了一个能在创建链接的时候告知我们的对话框。
【编辑推荐】
