.net中实现运行时从字符串动态创建对象

看到标题，大部分会说“运行时创建对象”那不是小儿科，就这样：

 

Dim newButton As Button = New Button()

 

newButton.Name = "Button1"

 

这的确是在运行时创建了一个按钮。不过若需按照用户要求创建按钮、复选框或者单选框怎么办，好像也好办：

 

Dim newControl As Control

 

Select Case userSelection

 

    Case "按钮"

        newControl = New Button()

 

    Case "复选框"

 

        newControl = New CheckBox()

 

    ....

 

End Select

 

如果用户需要的是Windows.Forms里面的数十种控件，那么你的Select语句也要写数十行吗？我当然不是想要做这种刁难的用户，但是需求总是多种多样的，若有一种方法能够在运行时任意指定对象的创建类型，甚至是用表示类型的名字的字符串创建所需的对象，该有多么方便。.net Framwork的反射机制给我们带来了解决问题的方法。这里，若只需要创建一般的对象，我们可以通过System.Activator来实现，而较复杂的我们可以通过获取构造方法来实现。

反射Reflection是.net中重要机制，很多人已经介绍过反射，我们来简单复习一下。通过反射，可以在运行时获得.net中每一个类型（包括类、结构、委派、接口、枚举）的成员，包括方法、属性、事件以及构造函数等，还可以获得每个成员的名称、限定符和参数等，有了反射，就可以对每一个类型了如指掌。如果获得了构造函数的信息，就可以直接创建对象，即使这个对象的类型在编译的时候还不知道。

在完成运行时创建控件这一任务前，我们先看一个简单的例子，建立一个名为VBAppliction的Windows程序，添加一个新文件，输入一个新类：

 

Public Class MyClassTest

 

    Private MyField As String

 

    Public Sub New()

        MyField = "Hi!"

    End Sub

 

    Public Sub Hello()

        Console.WriteLine(MyField)

    End Sub

 

End Class

 

然后加给窗体入一个新按钮，输入以下事件代码：

 

'方法一

Dim t As Type = GetType(MyClassTest)

 

o = System.Activator.CreateInstance(t)

 

o.Hello()

 

第一行GetType(MyClassTest)函数就已经获得了我们创建的类的类型对象（C#中使用typeof函数）。接下来，我们用了System.Activator类的一个静态方法CreateInstance创建出对象实例，并将对象引用赋给o。Activator是一个用来在创建本地或远程对象的工具。运行这个程序，我们可以从Commond Window（命令窗口，一般在调试状态IDE的右下方）看到WriteLine函数运行的结果，可以看到正确建立的对象。

如果我们用的类具有比较复杂的构造函数，还可以使用构造函数创建所需的对象，代码如下：

 

'方法二

Dim t As Type = GetType(MyClassTest)

Dim c As System.Reflection.ConstructorInfo

 

Dim types() As Type

ReDim types(-1)

 

 

c = t.GetConstructor(Reflection.BindingFlags.Instance _

  Or Reflection.BindingFlags.Public, _

  Nothing, Reflection.CallingConventions.HasThis, types, Nothing)

 

Dim params() As Object

ReDim params(-1)

 

o = c.Invoke(params)

 

o.Hello()

 

这里我们创建一个System.Reflection.ConstructorInfo的对象，通过它可以获得类构造方法的信息。我们用的是Type类的GetConstructor方法来搜索可用的构造方法。

需要解释一下的是types()数组，这个数组是搜索构造方法所用的参数类型表。我们的类的构造方法没有参数，所以需要一个空但不为Nothing（C#中为null）的数组，ReDim types(-1)就是建立这种数组的语句，在C#中可写作：

 

types = new Type[0]；

 

若构造方法是这样：

 

Public Sub New(ByVal A As Integer, B As String)

 

那么相应的types数组就应该是

 

Dim types(1) As Type

types(0) = GetType(Int32)

types(1) = GetType(String)

 

Reflection.BindingFlags.Instance和Reflection.BindingFlags.Public是一个位屏蔽，是指定搜索方式的选项。

params()数组是构造方法的参数内容表，同样因没有参数，我们使用ReDim -1的语法。

Invoke方法执行了构造方法，创建出对象实例。

现在我们回到第一种实现方法，将代码改一下，将

 

Dim t As Type = GetType(MyClassTest)

 

改为

 

Dim t As Type = Type.GetType("VBApplication.MyClassTest")

 

运行的结果没有改变，这就是说，我们实现了从字符串创建对象！不过这里GetType方法的使用有限制，具体我们后面再说。现在就可以实现我们的愿望：动态创建控件。通过上面的知识，我们很容易写出一个动态创建窗口控件的子程序：

 

Private Function CreateNewControls(ByVal targetControls As Control.ControlCollection, ByVal ctlName As String, ByVal ctlType As Type, ByVal ctlSize As Drawing.Size, ByVal ctlLocation As Drawing.Point) As Control

    Dim toCreate As Control

 

    toCreate = CType(System.Activator.CreateInstance(ctlType), Control)

 

    toCreate.Name = ctlName

    toCreate.Size = ctlSize

    toCreate.Location = ctlLocation

 

    targetControls.Add(toCreate)

 

    Return toCreate

End Function

 

那一句较长的语句中包含了上一个例子中的所有内容。如果用C#书写，则可以写成

 

toCreate = (Control)System.Activator.CreateInstance(ctlType)；

 

我们将按钮的事件过程改成：

 

Dim c As Control = Me.CreateNewControls1(Me.Controls, "Control1", GetType(CheckBox), New Size(168, 40), New Point(64, 176))

c.Text = "New Creation"

 

现在，单击一下按钮，就可以看到一个新的CheckBox出现在窗口上，标题为New Creation，而且，如果编写了事件过程，还可以为新建的控件添加事件响应。

看来一切都达到目的了？注意这一句GetType(CheckBox)还是使用了类名的字面表示，无法达到用字符串创建对象的功能。如果我们把这一句改成Type.GetType("System.Windows.Forms.CheckBox")行不行？嗯，试验一下，呵呵，出错了。为什么会这样？Type.GetType()方法从字符串获得类型仅限于corlib中的类型或者工程内部的类型，如果是来自于外部的程序集就需要加以程序集的名称。Windows.Forms程序集是公有的程序集，是位于程序集缓存中的，可以在.net Framwork内部实现side by side执行。所以这个程序集有不同的版本，为了确定使用的版本，我们不仅要提供程序集的名称，还要提供程序集的版本和强名称。按照这个思路，在我使用的.net Framework 1.1上，将这一句写成Type.GetType("System.Windows.Forms.CheckBox, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b 77a 5c 561934e089")。现在运行就没有问题了。问题是我们如何取得所用Windows.Forms程序集的版本和强名称？可以用GetType(CheckBox).AssemblyQualifiedName这样的语法，一旦得到了这些信息，我们就可以将这些信息用于其它任何控件，因为他们都来自于同一个版本Windows.Forms程序集。现在可以来玩一个好玩的，放一个文本框到窗口上，比如叫做TextBox1，将按钮的事件过程改为：

 

Try

    Dim c As Control = Me.CreateNewControls1(Me.Controls, "Control1", Type.GetType("System.Windows.Forms." & TextBox1.Text & ", System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b 77a 5c 561934e089"), New Size(168, 40), New Point(64, 176))

    c.Text = "New Creation"

Catch ex As Exception

    MsgBox(ex.Message)

End Try

 

现在只要在TextBox1种输入“Button”，按下按钮，一个新按钮产生了！如果输入的是CheckBox，那么将产生一个复选框。现在无论用户怎样刁难，控件都能正确“按需创建”了。反射机制在.net中还有很多用途，据说Delphi.net中的类引用及虚拟构造函数等功能用于.net Framwork时就是借助于反射及System.Type类型实现的，善用这一利器会给你的程序增色不少。