Visual Basic:使用字符串作为名称动态创建对象

Question

有没有办法使用字符串作为类名动态创建对象？

我已经离开VB好几年了,但是为了解决另一种语言的问题,我不得不在这个中开发一个包装器.我有一个工厂方法,可以根据其他地方的输入动态创建和返回一个类型的对象.提供的输入是从中创建对象的类名.正常语法意味着必须明确拼写整个类.要做到这一点,实际上可能有数百个if/then或者case来处理引用的libs中所有可用的类/对象选择:

If c_name = "Button" then obj = new System.Windows.Forms.Button
If c_name = "Form" then obj = new System.Windows.Forms.Form
....

我希望将所有这些案例处理减少到一行:IE ...

my_class_name = "whateverclass"
obj = new System.Windows.Forms.my_class_name()

在PHP中,这样处理就像......

$my_class_name = "whateverclass";
$obj = new $my_class_name();

编辑:看看一些答案,我想我在这里已经超出了我的想法.我确实设法使用Assembly类的CreateInstance方法变体使其工作,即使我对这种变体更感兴趣,提供更多选项,包括提供构造参数......

my_type_name = "System.Windows.Forms.Button"
asmb_name = "System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"
button1 = Reflection.Assembly.Load(asmb_name).CreateInstance(my_type_name)

换句话说,它需要一种方法来做到这一点,而不是任何固有的语言语法？ 当使用完整的汇编字符串和类路径时,此Activator变体也起作用.我怀疑CreateInstance可能没有完全的能力让我像对待它们一样对待对象,即obj = new System.Windows.Forms.Button.这就是为什么我不能简单地使用CreateObject.如果没有自然语言功能允许您将类名替换为字符串,那么是否有人能够深入了解我可以使用哪些限制CreateInstance？

另外,基本的Activator.CreateInstance(在Unwrap之后)和Assembly.CreateInstance方法之间是否存在差异？

Answer 1

这可能会做你想要/测试的工作; 切换顶部的类型注释以查看.

Imports System.Reflection

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '            Dim fullyQualifiedClassName as String = "System.Windows.Forms.TextBox"
    Dim fullyQualifiedClassName As String = "System.Windows.Forms.Button"
    Dim o = fetchInstance(fullyQualifiedClassName)
    ' sometime later where you can narrow down the type or interface...
    Dim b = CType(o, Control)
    b.Text = "test"
    b.Top = 10
    b.Left = 10
    Controls.Add(b)
End Sub

Private Function fetchInstance(ByVal fullyQualifiedClassName As String) As Object
    Dim nspc As String = fullyQualifiedClassName.Substring(0, fullyQualifiedClassName.LastIndexOf("."c))
    Dim o As Object = Nothing
    Try
        For Each ay In Assembly.GetExecutingAssembly().GetReferencedAssemblies()
            If (ay.Name = nspc) Then
                o = Assembly.Load(ay).CreateInstance(fullyQualifiedClassName)
                Exit For
            End If
        Next
    Catch
    End Try
    Return o
End Function