vba - VBA中类初始化时的参数

Question

下午好，

我想知道在 VBA 语言中是否有可能在类的初始化时将参数传递给类，就像在 Java 等面向对象语言中所做的那样，您可以在其中创建参数化构造函数。事件“Class_Initialize()”不允许我输入参数。我怎么解决这个问题？

祝一切顺利。

Answer 1

最接近的替代方案是工厂模式；

public function CreateMyClass(i as integer, str as string) As cMyClass
    Set CreateMyClass = New cMyClass
    '// a method within class to accept constructor-like args;
    CreateMyClass.ctor i, str
    '// alternatively setup via properties
end function

...

dim myClass As cMyClass
set myClass = CreateMyClass(123, "Hello")