UserForm Objekt an Klasse übergeben
26.01.2017 20:07:55
Marc
ich habe zwei UserFormen erstellt.
UserForm1 öffnet UserForm2 und schließt sich selber.
Nun habe ich meinen Quellcode, von der UserForm2 in eine Klasse ausgelagert.
Dort benögtige ich allerdings, um auf meine Objekte zu greifen zu können den Verweis auf die UserForm2. Lösen wollte ich das wie folgt.
In meiner Klasse:
Private myUserForm As UserForm ' Globale Variable
Sub Init(ByVal uForm As UserForm) ' Die Init soll meine Startwerte in der Klasse setzten
Set myUserForm = uForm
End Sub
Sub ABC()
myUserForm.Tag = "Etwas"
End Sub
In UserForm2:
Sub XYZ()
Set cUf2 = New clsUserForm2
cUf2.Init(UserForm2)
End Sub
Kann ich Startwerte an eine Klasse auch anders übergeben? Z.B. dann wenn ich die Instanz erstelle?
Vielen Dank schon einmal
Anzeige