彩票走势图

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

　　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.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=b77a5c561934e089")。现在运行就没有问题了。问题是我们如何取得所用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=b77a5c561934e089"), 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类型实现的，善用这一利器会给你的程序增色不少。