Constructeur et destructeur d'objet Excel VBA

Question

Je dois créer des objets personnalisés dans VBA qui devront se référencer mutuellement et j'ai quelques problèmes.

Premièrement, comment les constructeurs d'objets fonctionnent-ils dans VBA? Y a-t-il des constructeurs?

Deuxièmement - y a-t-il des destructeurs? Comment VBA gère-t-il la fin du cycle de vie de l'objet? Si j'ai un objet qui référence les autres (et c'est leur seule référence), alors puis-je le définir sur Rien et en avoir fini avec lui ou pourrait-il produire des fuites même?

Cette substance quasi-OO est juste un peu irritant.

Answer 1

VBA prend en charge les modules de classe. Ils ont un événement Class_Initialize qui est le constructeur et un Class_Terminate qui est le destructeur. Vous pouvez définir des propriétés et des méthodes. Je crois que VBA utilise le comptage de référence pour le cycle de vie de l'objet. C'est pourquoi vous voyez beaucoup de Set what = Nothing dans ce type de code. Dans votre exemple, je pense qu'il n'y aura aucune fuite de mémoire. Mais vous devez faire attention aux références circulaires.

Answer 2

Si vous faites un module de classe dans VBA, pour le constructeur, vous pouvez utiliser:

Private Sub class_initialize() 
.... 
End Sub 

Il n'y a pas Destructeurs, puisque VBA est détruite. Assurez-vous de nettoyer toutes les références circulaires, et vous devriez éviter toute fuite de mémoire possible.

Answer 3

Cela fait longtemps que je ne les ai pas utilisés, mais je ne pense pas que vous puissiez transmettre des paramètres aux constructeurs. Je pense que c'était l'un des problèmes que j'ai rencontrés, mais je me heurtais à tant de problèmes sur la façon dont les classes travaillaient et sur la façon dont je m'attendais à ce qu'elles fonctionnent que je me trompe peut-être.

Answer 4

Il existe un Class_Terminate qui est à peu près le même que destructor.

Answer 5

J'ai confirmé que class_initialize et class_terminate.

Vous pouvez le vérifier en écrivant ce TestClass:

Public testVar As Integer 

Private Sub class_initialize() 
    Debug.Print "Class init" 
    testVar = 10 
End Sub 

Private Sub class_terminate() 
    Debug.Print "Class terminate" 
End Sub 

Et écrire ce code dans un module:

Sub test() 
    Dim myTestClass As New TestClass 
    Debug.Print myTestClass.testVar 
End Sub 

Et vous verrez les journaux dans la fenêtre de débogage. Mais avec ce test, nous pouvons voir que class_initialize n'est pas appelé lorsque vous créez l'instance (avec new) mais seulement au premier appel d'une méthode dans l'instance ou en obtenant une valeur var.

Le Class_Terminate semble être appelé à la fin de la TestModule (Si une instance est maked sur ThisWorkbook objet, fin est « jamais » appelé ... probablement seulement lorsque le classeur est fermé ou lorsque Excel est fermé)