Parameters at Class' Initialization in VBA

Question

good afternoon,

I wonder if it is possible, in the VBA language, to pass parameters to a class on it's initialization time, as done in object-oriented languages ​​such as Java, where you can create parameterized constructors. the event "Class_Initialize ()" does not allow me to enter parameters. how can I solve this problem?

all the best.

Answer 1

The closest alternative is a factory pattern;

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")

Answer 2

make your own on to wrap around that?

Sub new_myClass(str1 as String, int1 as Integer) As myClass
  Dim mc As myClass
  mc.int_attribute = int1
  mc.str_attribute = str1
  '...
  return mc
End Sub