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

王朝c#·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

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类型实现的,善用这一利器会给你的程序增色不少。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航