设计示例用到的组件
创建两个VB.NET类库工程：DynamicComponent和VBDynamicComponent2，分别创建两个窗体VBForm1和VBForm2（如图6图7所示），前者放在DynamicComponent工程中，后者放在VBDynamicComponent2工程中。

分别编译生成两个DLL文件：DynamicComponent.dll和VBDynamicComponent2.dll。

接着，我们创建一个Windows应用程序VBTestDynamicComponent用于测试我们的组件装配技术。

读取XML配置文件
在测试程序启动时，它从XML配置文件中读取信息，我们看到，相关信息可以分为两类：一类是要装入的DLL文件清单，另一类是需要装入的类名。这两者是一一对应的，所以，我们可以创建两个ArrayList,一个用于存放文件名，一个用于存放类名，然后，用一个类MyComponentList把这两个ArrayList给封装起来，外部使用者只需给出索引，就可以马上同时得到文件名与类名。

类的接口设计如下：





图 9 用于实现动态装入组件的类



参见图9，只要给MyComponentList类的对象指定一个XML配置文件名，再调用beginRead()，调用者就可以通过索引（0，1，2……）来获取文件名和类名。

读取XML格式数据可以使用.NET framework所提供的XmlTextReader类。完整代码如下：



'从XML配置文件中读取组件的类名与文件名

Imports System.Collections.Specialized

Imports System.Windows.Forms

Public Class MyComponentList

Private xmlreader As Xml.XmlTextReader

Private _FileName As String 'XML配置文件名

Private _ComponentFileName As String '组件库文件名

Private _ComponentName As String '组件库中的类名

Private componentNames As ArrayList '存放配置文件中列出的所有组件类名

Private componentFiles As ArrayList '存放配置文件中列出的所有组件库名



'在构造函数中创建相关对象

Public Sub New(ByVal FileName As String)

_FileName = FileName

_ComponentFileName = ""

_ComponentName = ""

componentNames = New ArrayList()

componentFiles = New ArrayList()

xmlreader = New Xml.XmlTextReader(FileName)

End Sub



'XML配置文件名

Public Property FileName() As String

Get

Return _FileName

End Get

Set(ByVal Value As String)

'文件名空则应抛出异常.

_FileName = Value

End Set

End Property

'读取组件库

Public Sub beginRead()

Dim b1, b2 As Boolean

b1 = False

b2 = False

'以下循环读入文件，使用标记b1和b2来实现“组件库文件ß à组件名”的配对，

'并分别存入对应的两个ArrayList中（componentFiles ß àcomponentNames）

While xmlreader.Read

If xmlreader.Name = "Component" Then

xmlreader.MoveToFirstAttribute()

If xmlreader.Name = "ComponentName" Then

_ComponentName = xmlreader.Value

b1 = True

End If

If xmlreader.Name = "ComponentFileName" Then

_ComponentFileName = xmlreader.Value

b2 = True

End If

While xmlreader.MoveToNextAttribute()

If xmlreader.Name = "ComponentName" Then

_ComponentName = xmlreader.Value()

b1 = True

End If

If xmlreader.Name = "ComponentFileName" Then

_ComponentFileName = xmlreader.Value()

b2 = True

End If

If b1 And b2 Then

componentNames.Add(_ComponentName)

componentFiles.Add(_ComponentFileName)

b1 = False

b2 = False

End If

End While

End If

End While



End Sub

'取出指定索引的文件名（即组件库文件名）

Public Function getfilename(ByVal index As Integer) As String