Polymorphisme, implémentation

Bonjour,

J'ai un peu phosphoré à la question soulevée par Tonioyo: comment accéder aux méthodes/propriétés de la classe spécifique ?

Citation:

---

Envoyé par Tonioyo

Avec Implements Un Lapin est un mamifère et un Raton-Laveur l'est aussi, jusque là ok.

mais lorsque l'on dis : J'ai un mamifère (implémentation / New), c'est un lapin (Affectation de notre mamifère comme lapin). Si je veux accèder aux propriétés et méthodes de mon mamifère en VBA (tout du moins Access VBA), on a accès qu'aux propriétés et méthodes de notre mamifère ce qui est juste et faux à la fois car à partir de mamifère on devrait avoir accès à la partie mamifère et à la partie Lapin.

---

En VBA, il faudrait poser le problème en passant par le type Object qui donne accès aux méthodes/propriétés de la classe instanciée (celle à laquelle s'applique New).

J'ai un animal (Object) et c'est un lapin (New cLapin).

Code:

---

1 2	Dim oAnimal As Object Set oAnimal = New cLapin

---

Si cet animal est effectivement un mammifère, alors on peut accéder aux méthodes/propriétés de mammifère que sa classe implémente.

Code:

---

1 2 3 4 5 6 7 8 9

Dim oMammifère As iMammifère   If (TypeOf oAnimal Is iMammifère) Then ' cet animal est un mammifère Set oMammifère = oAnimal   MsgBox "Ce mammifère est un: " & TypeName(oMammifère) & vbCrLf & _ "Voilà son cri: " & oMammifère.Cri End If

---

Via la référence d'objet oAnimal, on peut aussi accéder aux méthodes/propriétés spécifiques de la classe cLapin:

Code:

---

1 2 3

' Le lapin peut bondir (méthode de la classe cLapin) oAnimal.Bondir

---

Salut à tous,
Quelle passionnante discussion !
Mais ces 2 fonctions MsExcel en sont-elles des exemples?

Code:

---

1 2	INDEX("Matrice";NumLigne;NumCol) INDEX("Réf";NumLigne;NumCol;NumZone)

---

Code:

---

1 2	RECHERCHE("ValCherchée";"PlageRecherche";"PlageRésultat") RECHERCHE("ValCherchée";"Matrice")

---

Si oui, Polymorphisme ou Implémentation?
à+

Tiens, je n'avais pas vu cette intervention sur RECHERCHE :oops:

Pour moi, c'est du polymorphisme

Bjr,

Je reviens un peu sur la limitation de ce polymorphisme.
Je parle du fait qu'on ne peut pas partager une méthode de la classe mère.

Je déroule un petit exemple à base de client et fournisseur :
- Je souhaite pouvoir définir un nom et un prénom à mes fournisseur.
- Je souhaite également avoir une fonction qui me donne le nom complet (concaténation de prénom + nom).
- je ne veux pas avoir à maintenir cette fonction à plusieurs endroits car c'est la même pour tout mes types de contacts
- par contre je veux pouvoir définir des méthodes qui vont s'exécuter différemment pour chaque type de contact : par exemple une méthode qui ajoute le contact dans la bonne table (et avec les bons champs) en fonction de son type.

Je crée donc une classe d'interface clContact :

Code:

---

1 2 3 4 5 6 7 8 9 10

Public ContactName As String Public ContactFirstName As String   Public Function FullName() As String FullName = ContactFirstName & " " & ContactName End Function   Public Sub Insert() End Sub

---

Cette classe :
- stocke le nom (ContactName) et le prénom (ContactFirstName)
- contient la fonction FullName qui concatène prénom et nom
- la fonction Insert qui est vide car elle sera créée dans chaque "sous-classe"

Voici la classe clClient :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Implements clContact Private Parent As clContact   Private Sub Class_Initialize() Set Parent = New clContact End Sub   Private Property Get clContact_ContactFirstName() As String clContact_ContactFirstName = Parent.ContactFirstName End Property   Private Property Let clContact_ContactFirstName(ByVal RHS As String) Parent.ContactFirstName = RHS End Property   Private Property Let clContact_ContactName(ByVal RHS As String) Parent.ContactName = RHS End Property   Private Property Get clContact_ContactName() As String clContact_ContactName = Parent.ContactName End Property   Private Function clContact_FullName() As String clContact_FullName = Parent.FullName End Function   Private Sub clContact_Insert() DoCmd.RunSQL "insert into table TClients values('" & Parent.ContactFirstName & "','" & Parent.ContactName & "')" End Sub

---

Et presque la même chose pour la classe clFournisseur :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Option Compare Database Option Explicit   Implements clContact Private Parent As clContact   Private Sub Class_Initialize() Set Parent = New clContact End Sub   Private Property Get clContact_ContactFirstName() As String Parent.ContactFirstName = Parent.ContactFirstName End Property   Private Property Let clContact_ContactFirstName(ByVal RHS As String) Parent.ContactFirstName = RHS End Property   Private Property Let clContact_ContactName(ByVal RHS As String) Parent.ContactName = RHS End Property   Private Property Get clContact_ContactName() As String clContact_ContactName = Parent.ContactName End Property   Private Function clContact_FullName() As String clContact_FullName = Parent.FullName End Function   Private Sub clContact_Insert() DoCmd.RunSQL "insert into table TFournisseurs values('" & Parent.ContactFirstName & "','" & Parent.ContactName & "')" End Sub

---

Dans ces classes j'implémente la classe clContact, et donc je dois créer toutes les procédures de cette interface.
Je déclare un objet Parent de type clContact, et j'initialise cet objet à l'initialisation de la classe (Class_Initialize).
Il est alors possible d'utiliser cet objet Parent pour faire appel aux procédures et propriétés qu'on souhaite avoir dans la classe mère.

Par contre la procédure Insert est "classique".
Elle s'exécute dans le module de classe qui correspond au type de contact.

Pour tester, une petite fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Function TestPolymorphisme() ' Deux objets "contact" Dim oClient1 As clContact Dim oFournisseur1 As clContact ' Crée un client Set oClient1 = New clClient ' Crée un fournisseur Set oFournisseur1 = New clFournisseur ' Prénom et nom du client oClient1.ContactFirstName = "Jean" oClient1.ContactName = "Boulanger" ' Prénom et nom du fournisseur oFournisseur1.ContactFirstName = "Pierre" oFournisseur1.ContactName = "Petrain" ' Affichage des noms complets Debug.Print oClient1.FullName Debug.Print oFournisseur1.FullName ' Insertion des contacts oClient1.Insert oFournisseur1.Insert End Function

---

La proécure FullName n'est donc écrite qu'une seule fois.
C'est utile pour une procédure qu'on ne veut pas maintenir à différents endroits à coup de copier-coller au risque d'en oublier un.

La procédure Insert est spécifique à chaque type de contact.
Bien sûr l'exemple n'est pas très pertinant, il n'y a que le nom de table qui change, mais il pourrait y avoir beaucoup plus de différences : des noms de champs différents, des vérifications de données différentes, ...

C'est pas très très joli de créer un objet Parent dans chaque objet pour lui envoyer les méthodes, mais ça marche. :mrgreen:

Amusez-vous bien avec le polymorphisme!

Citation:

---

C'est pas très très joli de créer un objet Parent dans chaque objet pour lui envoyer les méthodes, mais ça marche.

---

Ca transforme surtout le sens de la notion d'héritage (sens au sens sémantique et pas coté ... ok, je sais pas m'exprimer :aie:)

C'est comme l'héritage dans une base de données relationnelle, on transforme le verbe "est un" par "a un"

Le fournisseur est un contact DEVIENT le fournisseur a une fiche contact

Mais y a pas le choix, et c'est pas vraiment handicapant

Citation:

---

Envoyé par Tofalu

Le fournisseur est un contact DEVIENT le fournisseur a une fiche contact

---

en fait les deux :
Le fournisseur est un contact et a une fiche contact

on garde quand même le polymorphisme d'héritage (les deux objets sont déclarés as clContact), mais on rajoute une "fiche contact" pour les procédures communes

Je suis en train de me poser un petite question métaphysique :

Implement ne serrait pas le même concept d'interface en java ?

Un gros problème c'est qu'avec Implements en VBA on peut instancier des méthodes du coup on perds la définition d'interface.

Salut,

Une utilisation du mot-clé Implements ici: [XL-2007] Module de classe et KeyPress