visual|动态|加载Visual Basic .NET 中动态加载类

· ··Microsoft

　摘要：理想情况下，编写软件系统之前我们就应该知道此软件系统需要完成哪些操作。但实际情况并非如此，因此我们的系统应该是可以调整的。

　　最能体现这种适应性的是动态集成新功能的能力。例如，在 Windows 窗体应用程序中，这种能力是指加载编译原始应用绦蚝芫靡院蟠唇ǖ拇疤宓哪芰Α?/P>

　　这种操作在 Microsoft Visual Basic® 6.0 中几乎是不可能的，但是在 Visual Basic .NET 中却相当容易。利用 System.Reflection 命名空间的功能，程序只需知道程序集的位置即可请求动态加载该程序集。然后即可加载该程序集中的类并对类进行实例化。由于 Windows 窗体也是一种类，这就意味着可以动态地加载、显示和使用窗体，即使在编译原始程序时窗体并不存在。

　　典型的方案
　　假设我们有一个多文档界面 （MDI） 应用程序，需要具有将任意窗体加载为子窗体的能力。那么应用程序应该能够执行以下操作：

获取可以加载的窗体的列表，通常不在 .NET 配置文件中。
显示该列表并允许用户从中选择一个窗体。
实例化并显示用户选择的窗体。
　　让我们编写这样一个应用程序，看看如何完成动态加载。

　　步骤 1：创建项目和 MDI 窗体
　　启动一个新的 Windows 窗体项目。将其命名为 FormsOnTheFly。在新项目中包含的空窗体 Form1 中，将它的 IsMdiContainer 属性更改为 True。这样，该窗体即变成一个 MDI 父窗体。更改窗体的大小，使窗体的长和宽的尺寸大约为默认值的两倍。

　　将一个面板控件拖动到窗体上，然后设置它的 Dock 属性，使它靠接在窗体的顶部。更改面板的大小，使它的高度大约为 0.5 英寸。

　　将一个组合框拖动到面板上。将它命名为 cboForms，然后将它的 DropDownStyle 设置为 DropDownList。

　　最后，将一个按钮拖动到面板上。将它命名为 btnLoadForm，然后将它的 Text 属性设置为 Load Form。

　　此时，Form1 应如图 1 所示。



图 1：添加所有控件后处于设计模式下的 MDI 窗体

　　步骤 2：生成一个类，以存放可用窗体的数据
　　我们将获取可能从基于 XML 的配置文件之外加载的窗体的有关信息。但是，为了更便于在组合框中显示可用窗体并获取有关所选窗体的信息，还应建立一个对象集合。集合中的每个对象都将存放一个可用窗体的信息。对象应具有以下属性：

Description：显示在组合框中的窗体说明。
Location：窗体所在的 DLL 的文件名。
Type：窗体的 .NET 类型的名称（例如，MyProject.Form1）。
　　这样的集合可以数据绑定到列表框中。要从列表框中返回对所选对象的引用，还需要一个属性，我们称之为 Reference。

　　要创建类，请选择 Project | Add Class（项目|添加类），然后将类命名为 DynamicClass.vb。在类中添加以下代码：

Public Class DynamicClass
Dim msLocation As String
Dim msType As String
Dim msDescription As String

Public Sub New（ByVal sLocation As String, _
ByVal sDescription As String, _
ByVal sType As String）
Me.Location = sLocation
Me.Description = sDescription
Me.Type = sType
End Sub

Public Property Location（） As String
Get
Return msLocation
End Get
Set（ByVal Value As String）
msLocation = Value
End Set
End Property

Public Property Type（） As String
Get
Return msType
End Get
Set（ByVal Value As String）
msType = Value
End Set
End Property

Public Property Description（） As String
Get
Return msDescription
End Get
Set（ByVal Value As String）
msDescription = Value
End Set
End Property

Public ReadOnly Property Reference（） As Object
Get
Return Me
End Get
End Property
End Class