使用反射实现根据名称动态创建窗体的几种方法

‘ 方法1使用activator方法创建实例

 

 

dim str as string

 

        str = "form2"  '必须是 命名空间+点+窗体类名（这里假设为命名空间为空）

 

        dim tempassembly as [assembly] = [assembly].getexecutingassembly()

 

        dim t as type = tempassembly.gettype(str)

 

        dim args() as object = nothing

 

        dim o as object = system.activator.createinstance(t, args)

 

        ctype(o, form2).show()

 

        'dim frm2 as form = ctype(tempassembly.createinstance(str), form) 

    'frm2.show()

‘方法2使用构造函数的invoke方法创建实例。

 

        dim ty() as type = {} ‘该构造函数没有参数

 

        dim c as constructorinfo = t.getconstructor(ty) ‘获得没有参数的构造函数

 

        dim args1() as object = nothing ‘参数为空

 

        dim p as object = c.invoke(nothing) ‘创建实例时参数为空

 

        ctype(p, form2).show()

‘方法3 ‘///使用assembly.createinstance方法创建实例

 

      dim str as string

 

        str = "form2"  '必须是 命名空间+点+窗体类名

 

        dim tempassembly as system.reflection.assembly = system.reflection.assembly.getexecutingassembly()

 

 

        dim frm2 as form = ctype(tempassembly.createinstance(str), form)