Objektsuizid

[Johnson]

Hallo zusammen,


Besteht die Möglichkeit ein Objekt einer (selbstgeschriebenen) Klasse über eine Klasseninterne Methode zu terminieren.

z.B. soll die Remove-Methode eines Objektes meiner Klasse das Objekt gleich auf Nothing setzten (sprich den Destruktor aufrufen).

Code

	Dim obj as Object

	Set obj = New Object
	...
	Call obj.Remove
	If obj is Nothing Then
		...
	End If

Gibt´s da was?


Gruß
Johnson

[umi]

Wie wärs einfach mit "delete obj"

[Johnson]

Nicht ganz: Das Objekt soll sich selbst "zerstören"!

s. Remove-Methode im Beispielcode (der so wie er hier steht einen Fehler beim compilieren wirft)

Code

Class Object
	
	Private m_doc as NotesDocument
	
	Sub New(doc_source as NotesDocument)
		Set m_doc = doc_source
	End Sub
	
	Sub Delete()
	End Sub
	
	
	Sub Send(var_sendto as Variant)
		Call m_doc.Send(var_sendto, False)
	End Sub
	
	Sub Remove
		Call m_doc.Remove(True)
		Delete Me
	End Sub
	
End Class

[umi]

set me = nothing geht auch nicht ?

[Johnson]

No.

"Variable required: ME"