Tester si une classe est "vide"

Bonjour,

J'ai une classe Traitements dont la signature peut se résumer à :

Code:

---

1 2 3

Sub Traitements(ByRef Classe1 ByRef Classe2, ByRef Classe3)

---

Classe1 est la seule obligatoire.
Classe2 et Classe3 sont facultatives. Classe2 "peut être renseignée" et pas Classe3 ou l'inverse. Ou les 2 "peuvent être renseignées"
Quand Classe2 ou Classe3 "sont renseignées", des traitements sont effectués et mémorisés dans des attributs de Classe2 ou Classe3 (d’où la déclaration avec ByRef)

Dans la Form qui utilise la classe Traitements, j'instancie Classe1, Classe2 et Classe3, même si je sais très bien que Classe2 ou Classe3 est vide et que je n'aurais donc pas de traitement à faire dessus.

Et dans la Classe Traitements, je n'arrive pas à tester si Classe2 est "vide" ou si Classe3 est "vide".
Car bien sûr,

Code:

---

If Not Classe2 Is Nothing Then

---

ne marche pas car je suppose que la Classe a été déjà instanciée.

Donc je ne sais pas comment faire.
Pouvez-vous m'aider ?
Merci.

Bon, je poste principalement pour quelque chose qui n'est pas en lien direct avec le sujet (désolé :aie:)
Tu n'as pas besoin de passer tes classes ByRef pour pouvoir modifier leurs attributs ; la seule chose que permet ByRef c'est de pouvoir réassigner l'instance associée à l'identificateur "nom_du_parametre", mais même en passant ta classe ByVal ses attributs sont modifiables :)

En ce qui concerne le sujet, c'est un peu dommage d'instancier des classes à l'avance plutôt que lorsque tu en as besoin (c'est en partie la cause de ton problème, si tes instances n'étaient pas créées en amont tu pourrais, comme tu l'as mentionné tester si elles valent Nothing).
Tu pourrais créer une propriété dans tes classes (une dans une interface implémentée par tes classes) spécifiant l'état (modifié ou pas) de l'instance en cours mais ça reste bancal comme design (pour moi au moins)

Cdlt.

Merci Sehnsucht pour ce "hors-sujet" instructif.

J'avais pensé à ce genre de solution en mettant un booléen flaggant vide ou pas.
Mais comme toi, je ne trouve pas ça propre.

Bonjour,

Moi ce qui me tique un peu c'est dans la signature de ta procédure tu ne type pas tes classes :

Code:

---

Sub Traitements(ByRef Instance1 As Classe1, ByRef Instance2 As Classe2, ByRef Instance3 As Classe3)

---

Si tant est qu'il s'agisse de trois classes différentes... Car si tu as 3 traitements vraiment différents, dans ce cas tu peux faire de la surcharge : Même nom, mais 3 procédures :

Code:

---

1 2 3

Sub Traitements(ByRef Instance1 As Classe1, ByRef Instance2 As Classe2) Sub Traitements(ByRef Instance1 As Classe1, ByRef Instance3 As Classe3) Sub Traitements(ByRef Instance1 As Classe1, ByRef Instance2 As Classe2, ByRef Instance3 As Classe3)

---

(Ce qui n'empêche pas de faire des sous procédures communes.)

Et pour moi en amont, tu devrait mettre :

Code:

---

1 2 3

Instance1 = Nothing Instance2 = Nothing Instance3 = Nothing

---

Et tu n'instancie que si tu as besoin, c'est le moyen le plus facile de tester.

Mais l'autre solution ne me choque pas non plus: mettre un Boolean, qui passe à True lorsque tu charges réellement l'objet.
Pour être propre, ce boolean est en Private, tu créer une proprity Readonly, instancier à False dans le constructeur, il passe à True dans la Sub qui charge l'objet (si pas d'erreur), ainsi il n'est pas modifiable de l'extérieur, il n'est même pas à gérer, il se gère tout seul, c'est l'encapsulation !

Si, mactwist69, je type bien les classes comme tu l'écris. C'est juste passé à la trappe quand j'ai préparé mon exemple :oops:

J'ai adopté la solution est le booléen. J'ai fais exactement la même chose sauf pour la propriété. Je ne l'ai pas mise à ReadOnly.
Donc si je comprends on peut affecter une valeur à une propriété ReadOnly mais seulement à l'intérieur de la classe elle-même ?

Et bien tout dépend de ce que tu veux faire.

Si tu veux pouvoir modifier la valeur en dehors de la classe : Donc la passer à True ou False, alors tu créer la propriété avec ET le Get ET le Set :

Code:

---

1 2 3 4 5 6 7 8

Public Property IsLoaded As Boolean Get Return IsLoaded End Get Set(value As Boolean) IsLoaded = value End Set End Property

---

Du coup, il faudra le gérer à l’extérieur de la classe, Donc tu charges ton objet, et après tu feras :

Code:

---

MonObjet.Isloaded = True

---

Mais il faudra le gérer "à la main" à chaque fois.

Car l'autre solution, tu n'as plus à le gérer (depuis l’extérieur)
Dans ta classe, dans le constructeur tu le passes à False et dans la procédure (toujours dans la classe) qui charge l'objet, tu feras:

Code:

---

IsLoaded = True

---

Et pour savoir si il est chargé, tu mets à disposition QUE le Get :

Code:

---

1 2 3 4 5

Public ReadOnly Property IsLoaded As Boolean Get Return IsLoaded End Get End Property

---

Et à tout moment, tu peux checker :

Code:

---

If MonObjet.IsLoaded Then

---

Très bien. Merci pour ces précisions.
J'ai modifié mon code en conséquence