Parametry przy inicjalizacji klasy w VBA

Question

dobry,

Zastanawiam się, czy jest to możliwe, w języku VBA, aby przekazać parametry do klasy na nim czas inicjalizacji, jak to zrobiono w obiektowych językach takich jako Java, gdzie możesz tworzyć sparametryzowane konstruktory. zdarzenie "Class_Initialize()" nie pozwala mi wprowadzać parametrów. jak mogę rozwiązać ten problem?

Wszystkiego najlepszego.

Answer 1

tworzyć własne na opakowaniu?

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 

Answer 2

Najbliższa alternatywa to wzór fabryczny;

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