vb6:动态创建对象

我希望您这样做的原因是模仿某种类似于接口的功能,否则这可能不是一个理想的解决方案。

无论如何,您可以创建一个方法,根据您提供的字符串返回不同的类。

function myClassCreatingFunction(className)
    select className

        case: "Class1"
             set myClassCreatingFunction = new Class1
             exit function

        ...

    end select
end function

如果在单独的VB6 OCX中对该类提出质疑,则可以使用createObject动态创建它们。