Instanzname einer Klasse
11.06.2005 13:18:24
Walter
komme hier absolut nicht weiter:
Habe ein Klassenmodul "Klasse1" (Auszug):
Private m_Name As String
Public Property Get Name() As String
Name = m_Name
End Property
Private Sub Class_Initialize()
' hier geschieht ein Wunder
Name= .....
End Sub
In einem normalen Modul wird ein Objekt auf "Klasse1" referenziert:
Sub test1()
Dim C_test As Klasse1
Set C_test = New Klasse1
End Sub
Sub test2()
Dim D_test As Klasse1
Set D_test = New Klasse1
End Sub
Nun mein Problem:
Ich gerne in der Variable m_Name automatisch über Class_Initialize den Namen der instanzierten Objektvariblen, soll heißen, "C_test" bzw. "D_test", ohne das diese Variable als Eigenschaft mit Property Let gefüllt wird.
Mir ist wohl die Methode "ObjPtr" bekannt. Mit ihr erhalte ich immerhin einen Objektzeiger auf die Objekte "C_test" bzw. "D_test",
aber wie erhalte ich die Namen als String im Klassenmodul?
Mit freundlichem Gruß
Walter