Office: Instanzen von selbst erstellten Klassen

Hallo,

ich habe ein Excelprojekt mit ca. 10 selbsterstellten Klassen.
Bei der Arbeit mit meinem Excelprojekt werden Instanzen dieser Klassen sehr oft aufgerufen und wieder geschlossen - auch Arrays davon.
Ich habe hier im Forum gelesen, dass Instanzen von selbst erstellten Klassen nicht automatisch aus dem Speicher gelöscht werden. Also versuche ich, am Ende eines jeden meiner Module so etwas stehen zu haben:

Set oEinAuto = nothing

Trotzdem sagen mir meine Nutzer, dass nach ca. 2-3 Stunden Arbeit mit meinem Excelobjekt die Fehlermeldung ("Die Anweisung 0x000... verweist auf...") kommt.
Ich vermute, das hängt damit zusammen, dass nicht alle Instanzen meiner Klassen vernünftig beendet werden. Nun meine Fragen:

Gibt es in VBA ein Möglichkeit, an diesen Speicher heranzukommen und diesen freizugeben, außer wie oben beschrieben?

Wie verhält es sich, wennich die Instanzen als Parameter an Unterprozeduren übergebe? Ungefähr So:

Sub Hauptprozedur()

Dim oMeinAuto as New clsEinAuto
Dim oWerkstatt as new clsWerkstatt

Call oWerkstatt.Repariere(oMeinAuto)

Set oMeinAuto = Nothing
Set oWerkstatt = Nothing

End Sub


Muss ich dann in der Repariere-Methode von clsWerkstatt ebenfalls set oMeinAuto = Nothing reinschreiben?

Gruß & Vielen Dank

:)

 

Hallo Ulukaii1983,

mir ist in VBA keine andere Möglichkeit, außer über Set oMeinAuto = Nothing bekannt, Speicher von Objektvariablen wieder freizugeben, bzw. zu prüfen, ob noch Speicher für Objektvariablen reserviert ist. Möglicherweise ist da per Windows-API etwas zu machen, keine Ahnung.

Bei Unterprozeduren kommt es darauf an, ob die (Objekt-)Variablen per ByVal oder ByRef übergeben werden. Eine Übergabe per ByVal erzeugt eine eigenständige Instanz der Objektvariablen innerhalb der aufgerufenen Unterprozedur und muss daher auch separat wieder freigegeben werden. Eine Übergabe ByRef erzeugt keine eigenständige Instanz, es wird lediglich ein Verweis auf die Instanz der Hauptprozedur übergeben. Hier muss dann auch nichts separat freigegeben werden. Standardmäßig - ohne Angabe von ByVal oder ByRef - wird ByRef übergeben, d.h. nur ein Verweis auf die Instanz innerhalb der Hauptprozedur, keine weitere Instanz.

Gruß Ingolf

 

Hallo Ingolf,

vielen Dank für deine Antwort.
Da bleibt mir wohl nichts anderes übrig, als den gesamten Code zu durchforsten und zu gucken, ob irgendwo ein Set X = Nothing fehlt.
Ich übergebe meine Objekte standardmäßig byRef!

Gruß

 

PS:

Ich glaube, dass die Anweisung Set X = Nothing in einer Unterprozedur nicht nur den Verweis auf das Objekt, sondern das Objekt selbst löscht!

Habe das gerade ausprobiert, und wenn ich Set X = nothing in eine Subroutine schreibe und X byRef übergeben wurde, dann wird das Terminate-Ereignis der der Klasse ausgelöst.

Sehr komisch! Vielleicht hat noch jemand einen Link, wo man sich noch ein wenig mehr einlesen kann?

 

Hallo Ulukaii1983,

Set xy = Nothing ist eine Methode, mit der Objekte gelöscht werden. Mit dieser Methode greifst du logischerweise immer auf das Objekt selbst zu. Um einen Verweis löschen zu können, müsste es dafür eine eigenständige Methode geben. Die gibt es aber nicht, oder ich kenne sie zumindest nicht. Jedenfalls gehe ich davon aus, dass VBA die Verweise ByRef übergebener Objekte intern löscht, sobald die betreffende Unterprozedur beendet wird.

Gruß Ingolf

 

thx!!!

 

Hallo,

1. Objekte können nur als Referenz übergeben werden.
2. Wenn du in den Klassen Veweise auf Objekte hast, wie z.B. in Event-Klassen, solltest du diese Objekte im Terminate-Event der Klasse auch löschen. Beispiel:

' **********************************************************************
' Modul: cldTextbox Typ: Klassenmodul
' **********************************************************************

Option Explicit

Private WithEvents mobjTextbox As MSForms.TextBox

Friend Property Set SetTextbox(objTextbox As MSForms.TextBox)
Set mobjTextbox = objTextbox
End Property

Private Sub Class_Terminate()
Set mobjTextbox = Nothing
End Sub

 

"Man kann mit einem expliziten Nothing setzen, nichts beschleunigen, was nicht ohnehin automatisch passiert."
vb-hellfire visual basic faq

Beim Terminate wird das Objekt automatisch gelöscht.