class - 从 VBA 函数返回新类对象的 "right"方法是什么？

Question

我正在寻找在 VBA 中创建和返回新类对象的正确方法。

我熟悉以下返回新类型变量(按值返回)的模式:

Public Type Foo
    x as Integer
    y as Integer
End Type

Public Function NewFoo() as Foo
    NewFoo.x = 4
    NewFoo.y = 2
End Function

新 Class 对象(通过引用返回)的等效语法是什么？

Public Function NewMyClass() As MyClass
    ''// ...?
End Function

Answer 1

如果你想在 VBA 中返回一个对象，你必须将它设置为方法名称

Public Function NewMyClass() As MyClass
    Set NewMyClass = CreateObject("Some.MyClass");
End Function