Polymorphisme en VB

Version imprimable

Voir 40 message(s) de cette discussion en une page

Polymorphisme en VB

Bonsoir tout le monde. j'ai besoin de votre aide.

Pour comprendre la notion de Polyorphsme dans VB, j'ai essayé ce petit exemple
Code:

1 2 3 4 5 6 7 8 9 10 Module Module1 Sub Main() Dim damien As humain damien = New espagnol damien.parle() Console.ReadKey() End Sub End Module
Classe mère:
Code:

1 2 3 4 5 Public Class humain Public Overridable Sub parle() Console.WriteLine("tout humain parle") End Sub End Class
Classe fille:
Code:

1 2 3 4 5 6 7 8 Public Class espagnol Inherits humain Public Overloads Sub parle() Console.WriteLine("Il parle espagnol") End Sub End Class
Je m'attends à ce que (parle()) de espagnol qui s'exécute. Mais mon code affiche "tout humain parle"

Est ce que quelqu'un peut me donner une explication?

Merci

Bonjour,

Il faut utiliser le mot clé Overrides (ce qui signifie qu'une procédure substitue une procédure du même nom héritée d'une classe de base.)
Code:

1 2 3 4 5 6 7 8 Public Class espagnol Inherits humain Public Overrides Sub parle() Console.WriteLine("Il parle espagnol") End Sub End Class

07/10/2014, 08h40
Pol63
overloads est à utiliser quand on a plusieurs méthodes de même nom mais de signature différente (signature = paramètres en nombre et en type)
le plus généralement au sein d'une même classe
Code:

1 2 3 4 5 overloads sub a() overloads sub a(nb as integer)
07/10/2014, 10h08
mactwist69

Moi j'ai jamais compris à quoi servait overloads, puisque ça marche sans.

Voir, si on utilise overloads sur une méthode, il faut le faire sur toute les autres (même en héritage)...

Pourquoi rendre ce système de surcharge contraignant ? :roll:
07/10/2014, 10h15
Kropernic

Pareil, je ne me sers que de overrides. Overloads, ça ne fait que surcharger le code je trouve...

Enfin, si les méthodes sont éparpillées un peu partout, l'ajout de overloads peut être pertinent pour attirer l'attention.

Personnellement, je regroupe les méthodes de même nom et de signatures différentes les unes en dessous des autres.
07/10/2014, 11h08
mactwist69

Citation:

l'ajout de overloads peut être pertinent pour attirer l'attention

-> Effectivement, dans ce cas ça pourrait servir. Mais comme toi j'organise le code, notamment par région, je me vois mal avoir les mêmes procédures surchargées éparpillées de partout.

Par contre quand j'utilise le polymorphisme en héritage, j'utilise MustOveriddes dans la classe mère, pour forcer les classes enfants à suivre un même schéma. Mais là pour le coup, ce n'est pas un simple indicateur.

Citation:

Envoyé par mactwist69

Moi j'ai jamais compris à quoi servait overloads, puisque ça marche sans.

Voir, si on utilise overloads sur une méthode, il faut le faire sur toute les autres (même en héritage)...

Pourquoi rendre ce système de surcharge contraignant ? :roll:

Salut,

Bien que je ne sois pas un expert en POO sur VB, il me semble avoir déjà utilisé Overloads par obligation, mais je ne retrouve plus l'exemple. Shadows ne fonctionnait pas et Overloads fonctionnait.

J'ai essayé de refaire un exemple (calamiteux certes) de sorte qu'il faille rendre obligatoire Overloads bien que le code n'est pas forcément de sens d'ailleurs:
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 35 36 37 38 39 Imports Vb = Microsoft.VisualBasic Module MainModule Sub Main() Dim a As EtreVivant = New EtreVivant Dim b As EtreVivant = New Humain Dim c As Humain = New Humain a.SeNourrit() a.SeNourrit(True) b.SeNourrit() b.SeNourrit(True) c.SeNourrit() c.SeNourrit(True) End Sub End Module Public Class EtreVivant Public Sub SeNourrit(Arg1 As Boolean) Vb.MsgBox("Etre vivant se nourrit - [EtreVivant.SeNourrit(Boolean)]") End Sub Public Overridable Sub SeNourrit() Vb.MsgBox("Etre vivant se nourrit simplement - [EtreVivant.SeNourrit(void)]") End Sub End Class Public Class Humain : Inherits EtreVivant Public Overloads Sub SeNourrit(Arg1 As Boolean) Vb.MsgBox("Humain se nourrit - [Humain.SeNourrit(Boolean)]") End Sub Public Overloads Overrides Sub SeNourrit() Vb.MsgBox("Humain se nourrit - [Humain.SeNourrit(void)]") End Sub End Class
En principe, en supprimant Overloads, cela ne devrai pas fonctionner.

07/10/2014, 12h39
stracoma

Merci à vous. Je suis débutant. Mon erreur est que dans la saisie automatique au lieu de cliquer sur Overrides , j'ai cliqué sur overloads (que je n'ai pas encore étudié).
Donc avec Overrides le code marche.
Merci beaucoup à vous
07/10/2014, 13h19
sinople

Sauf erreur je crois que Overload est utile dans le cas ou une class enfant redéfinit une méthode de son parent en changeant la signature.
07/10/2014, 14h08
Invité

Oui, effectivement, sans hiérarchie d'héritage, Overloads n'est pas obligatoire.
C'est pour ça que je ne l'ai mis que dans la classe Fille pour montrer son caractère obligatoire dans celle-ci uniquement.

Citation:

Envoyé par sinople

Sauf erreur je crois que Overload est utile dans le cas ou une class enfant redéfinit une méthode de son parent en changeant la signature.

Exact,
utilisons l'exemple de stracoma, nous pouvons avoir un humain qui parle plusieurs langue
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Public Class HumainMultiLingue Inherits humain Public Overloads Sub parle(Langue As String) Select Case Langue Case "fr" Console.WriteLine("Il parle français") Case "en" Console.WriteLine("Il parle anglais") Case "es" Console.WriteLine("Il parle espagnol") Case Else Console.WriteLine("Il ne parle pas cette langue") End Select End Sub End Class
Seule cette nouvelle méthode surchargée peut être défini si on le souhaite (parle est hérité), et il faut le mot Overloads pour indiquer qu'elle surcharge (nouvelle signature) des méthodes ayant le même nom dans la classe parent.
On l'utilise ainsi
Code:

1 2 3 4 5 Dim Jean As HumainMultiLingue = New HumainMultiLingue Jean.parle() '>"tout humain parle" Jean.parle("fr") '>"Il parle français" Jean.parle("de") '>"Il ne parle pas cette langue" Console.ReadKey()
On peut l'attribuer à un "humain", mais la méthode surchargée n'existant pas dans la classe "humain", on est obligé de la remettre dans son type pour l'exploiter.
Code:

1 2 3 4 5 Dim damien As humain damien = New HumainMultiLingue damien.parle() '>"tout humain parle" DirectCast(damien, HumainMultiLingue).parle("es") '>"Il parle espagnol" Console.ReadKey()
[Edit]
On pourrait aussi redéfinir la méthode Parle dans la classe HumainMultiLingue (de façon classique)
Code:

1 2 3 Public Overrides Sub parle() Console.WriteLine("Il parle plusieurs langues.") End Sub

08/10/2014, 09h07
mactwist69

J'ai eu un petit doute du coup j'ai fais un test et il s'avère que : qu'il y ait changement de signature ou pas dans la classe fille, le même warning (erreur?) apparaît :

sub 'test' shadows an overloadable member declared in the base class 'mere'. If you want to overload the method, this method must be declared Overloads

C'est donc systématique.

Et Overloads appliqué ou non à la méthode de la classe mère ne change rien.

Peux-tu préciser ton contexte de test.
shadows masque toutes les méthodes ayant le même nom de la classe parent. Toutes les méthodes redéfini portant toujours ce même nom doivent être shadows.

Ici par exemple
Citation:
Envoyé par Nouveau2
Code:

1 2 3 4 5 6 7 8 9 10 11 Public Class Humain : Inherits EtreVivant Public Overloads Sub SeNourrit(Arg1 As Boolean) Vb.MsgBox("Humain se nourrit - [Humain.SeNourrit(Boolean)]") End Sub Public Overloads Overrides Sub SeNourrit() Vb.MsgBox("Humain se nourrit - [Humain.SeNourrit(void)]") End Sub End Class
En principe, en supprimant Overloads, cela ne devrai pas fonctionner.
Seule la méthode n'étant pas Overridable a besoin d'Overloads
La méthode défini avec Overridable (signifie qu'une procédure peut être substituée par une procédure de même nom (signature) dans une classe dérivée.) n'en a pas besoin
Code:

1 2 Public Overrides Sub SeNourrit() '...
est ok

Si l'une des 2 avait été marquée shadows, l'autre doit l'être aussi. et dans ce cas on ne précise plus Overloads ou Overrides. [Edit] Par contre elles peuvent être Overridable pour permettre la redéfinition.

08/10/2014, 11h20
Invité

Citation:

Envoyé par mactwist69

J'ai eu un petit doute du coup j'ai fais un test et il s'avère que : qu'il y ait changement de signature ou pas dans la classe fille, le même warning (erreur?) apparaît :

sub 'test' shadows an overloadable member declared in the base class 'mere'. If you want to overload the method, this method must be declared Overloads

C'est donc systématique.

Et Overloads appliqué ou non à la méthode de la classe mère ne change rien.

Salut,

Non puisque du coup, comme dit plus haut, Shadows doit ou peut être utilisé dans le cas d'une signature identique, donc Overloads n'est pas obligatoire.
08/10/2014, 11h26
Invité
Citation:
Envoyé par rv26t

Seule la méthode n'étant pas Overridable a besoin d'Overloads
La méthode défini avec Overridable (signifie qu'une procédure peut être substituée par une procédure de même nom (signature) dans une classe dérivée.) n'en a pas besoin

Code:

1 2 Public Overrides Sub SeNourrit() '...

est ok

Si l'une des 2 avait été marquée shadows, l'autre doit l'être aussi. et dans ce cas on ne précise plus Overloads ou Overrides.
Bien vu alors.
Je ne savais pas qu'Overrides pouvait remplacer Overloads Overrides.
Habituellement, Un Overloads sur 1 méthode entraine automatiquement l'ajout d'Overloads sur les autres.
08/10/2014, 11h50
rv26t

Citation:

Envoyé par Nouveau2

Habituellement, Un Overloads sur 1 méthode entraine automatiquement l'ajout d'Overloads sur les autres.

Toutes celles (même nom) qui ne sont pas Overrides.
Et si l'on veut qu'elles puissent être redéfinies dans les classes filles, il faut les mettre Overridable Overloads.

Code:

Public Overridable Overloads Sub SeNourrit(Arg1 As Boolean)
08/10/2014, 12h27
mactwist69

Quand j'ai recopié l'erreur :

Citation:

sub 'test' shadows an overloadable member declared in the base class 'mere'. If you want to overload the method, this method must be declared Overloads

Shadows, dans la phrase, n'est pas une fonctionnalité mais un verbe.
Traduction : "La méthode test cache (fait de l'ombre) à un membre overloadable..."

Citation:

Envoyé par rv26t

Seule la méthode n'étant pas Overridable a besoin d'Overloads

-> C'est ce que je confirmais, et j'ajoutais que la signature peut être identique ou pas, c'est pareil.

Code:

Public Overridable Overloads Sub SeNourrit(Arg1 As Boolean)

-> Mais ça, je vois pas l'intérêt, car ces éléments s'annulent :
Overridable dans la classe mère permet de ne pas utiliser Overloads dans la classe fille,
alors pourquoi utiliser derrière Overloads sur la classe mère pour obliger la classe fille à le déclarer Overloads aussi.

Pour moi ça revient à ne rien mettre dans la classe mère, et dans la classe fille on devra utiliser Overloads.
08/10/2014, 13h19
rv26t

Citation:

Envoyé par mactwist69

Code:

Public Overridable Overloads Sub SeNourrit(Arg1 As Boolean)

-> Mais ça, je vois pas l'intérêt, car ces éléments s'annulent :
Overridable dans la classe mère permet de ne pas utiliser Overloads dans la classe fille,
alors pourquoi utiliser derrière Overloads sur la classe mère pour obliger la classe fille à le déclarer Overloads aussi.

C'est parceque l'exemple est mal conçu. (c'était le but) pour montrer l'obligation d'utiliser overloads .
Mais là cela ne s'annule pas. Si l'on ne met pas Overridable la méthode ne pourra pas être substituée dans la classe fille. Il faudra de nouveau la marquer (dans la classe fille) Overloads. Afin d'éviter cela on précise Overridable, et dans la fille on mettra Overrides (ce qui aurait du être fait au début).

Citation:

Envoyé par mactwist69

Pour moi ça revient à ne rien mettre dans la classe mère, et dans la classe fille on devra utiliser Overloads.

C'est une effectivement une autre aproche.
Si on les marque toutes overloads on ne sais plus celles qui sont substituées. si on utilise Overridable et Overrides, c'est seulement celles substituées, les nouvelles étant marqués overloads, on connait celles substituées et celles qui sont nouvelles sans aller voir dans les classes parents.
Je ne sais pas ce qui est le mieux. Je ne suis pas expert en POO.
09/10/2014, 09h28
Invité

Bonjour,

Je revient un petit peu sur ce qui a été dit après avoir compris un peu mieux.

Dans mon exemple initial, la configuration choisi rends le mot clé Overloads obligatoire sur tous les autres membres de même nom situé dans les même classe pour les raisons suivantes:

- Un membre (occultant) utilisant le modificateur Overrides est Overloads par défaut.
- Un membre occultant à l'exception des membres Overrides est Shadows par défaut, mais peut être Overloads si définit explicitement.
- Il n'est pas possible de combiner Overloads et Shadows dans un même groupe de surcharge.
- (... il y a encore d'autres règles mais pas utile pour cette exemple.)

ça implique que les 2 méthodes occultantes de même nom situé dans la même classe et dont l'une est spécifié Overrides (Implicitement Overrides Overloads) entraine l'obligation que l'autre méthode spécifie explicitement Overloads également puisque la 2ème méthode est Shadows par défaut (et non Overloads) parce qu'elle ne spécifie pas Overrides aussi.

Sinon, dans une configuration plus classique, Overloads permet d'éviter le Shadows implicite donc lors d'une hiérachie d'héritage. Il permet d'éviter le masquage de toutes les procédures héritées de même nom (utilisé par défaut).
Ecrire explicitement Shadows supprime l'avertissement et si on ne souhaite que masquer la procédure héritée de même nom/signature, on peut utiliser Overloads, mais les 2 ne sont pas combinable entre procédures de même nom dans la même classe.

Donc, tout s'explique finalement.

Hello,

Je me permets de poser une question supplémentaire car j'ai justement un problème de polymorphisme ^^.

Voici le cas concret.

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Public Class PromoDetail
    Public Property DTO As PROMO_ICT_DTO.PromoDetail
 
    Public Sub New(d As PROMO_ICT_DTO.PromoDetail)
        Me.DTO = d
    End Sub
 
    Public Function GetProducts() As List(Of PROMO_ICT_DTO.Product)
        If Me.DTO.Products.Count > 0 Then
            Return Me.DTO.Products
        ElseIf Me.DTO.ProductsOut.Count > 0 Then
            Return Me.DTO.ProductsOut
        Else
            Return Nothing
        End If
    End Function
End Class
 
Public Class PromoDetailDemo
    Inherits PromoDetail
 
    Public Shadows Property DTO As PROMO_ICT_DTO.PromoDetailDemo
 
    Public Sub New(dtd As PROMO_ICT_DTO.PromoDetailDemo)
        MyBase.New(dtd)
    End Sub
 
    'Public Function GetProducts() As List(Of PROMO_ICT_DTO.Product)
    '    If Me.DTO.Products.Count > 0 Then
    '        Return Me.DTO.Products
    '    ElseIf Me.DTO.ProductsOut.Count > 0 Then
    '        Return Me.DTO.ProductsOut
    '    Else
    '        Return Nothing
    '    End If
    'End Function
End Class
 
Public Class PromoDetailOwn
    Inherits PromoDetail
 
    Public Shadows Property DTO As PROMO_ICT_DTO.PromoDetailOwn
 
    Public Sub New(dto As PROMO_ICT_DTO.PromoDetailOwn)
        MyBase.New(dto)
    End Sub
 
    'Public Function GetProducts() As List(Of PROMO_ICT_DTO.Product)
    '    If Me.DTO.Products.Count > 0 Then
    '        Return Me.DTO.Products
    '    ElseIf Me.DTO.ProductsOut.Count > 0 Then
    '        Return Me.DTO.ProductsOut
    '    Else
    '        Return Nothing
    '    End If
    'End Function
End Class

En l'état, ça ne fonctionne pas car quand je tente d'accéder à la propriété DTO d'un objet de type PromoDetailDemo ou PromoDetailOwn, le code essaie d'accéder à celle qui est dans la classe mère et qui vaut Nothing (donc NullReferenceException). En pas à pas, je vois deux propriétés DTO dans l'objet mais lors du codage, l'intellisense n'en montre qu'une.

J'ai tenté en mettant la propriété de la classe mère en Overridable et mettre Overrides dans les classes filles mais VS gueule car les types de retour ne sont pas les mêmes.

Comment faut-il faire alors ??

09/10/2014, 11h23
Kropernic

Complément

Si je retire les propriétés DTO des classes filles, cela fonctionne mais alors, je dois faire un cast dans le bon type si je veux avoir au propriété spécifique sous-jacente de chaque DTO.

J'aimerais ne pas avoir à faire de cast en fait.
09/10/2014, 13h06
mactwist69

Ton cas est plus compliqué.
En fait je crois que ton problème vient du fait qu'il y a un double Polymorphisme.

En l’occurrence tu souhaites faire du polymorphisme sur ton DTO puisque tu veux mettre PromoDetailOwn dans un PromoDetail.

Donc pour faire ça, le DTO PromoDetailOwn doit hérité du DTO PromoDetail.

(Ou peut être que c'est déjà le cas?)
09/10/2014, 13h24
rv26t

Citation:

Envoyé par Nouveau2

- Un membre (~~occultant~~) utilisant le modificateur Overrides est Overloads par défaut.

Dans ce cas (substituant),
[Edit] c'est plus subtil, Overrides substitue juste une définition : Seulement une méthode avec une séquence d'appel identique, Overloads surcharge une définition existante Donne une nouvelle méthode. [/Edit]

Citation:

Envoyé par Nouveau2

- Il n'est pas possible de combiner Overloads et Shadows dans un même groupe de surcharge.

Non puisque le premier permet de surcharger (donne une méthode de plus), alors que le second occulte (cache les définitions d'une méthode (de même nom) de la classe parent - défini une nouvelle portée)
substituer, surcharger et occulter sont 3 notions différentes.

@Kropernic
Vu que le type change.
Peux-tu nous donner quelques info de plus parce que là, l'utilisation que tu fais de l'ensemble est un peu flou pour moi.

C'est effectivement déjà le cas.

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Public Class PromoDetail
    Implements DtoBase
 
    Public Property Isnew As Boolean Implements DtoBase.Isnew
 
    Public Property Id As Integer 'PED_ID pour demo et PEO_ID pour ferme
    Public Property BuyingDepartment As BuyingDept
    Public Property Comment As String
    Public Property Note As String
    Public Property PriceReduction As Boolean
    Public Property Percentage As Decimal
    Private _listType As String
    Public ReadOnly Property ListType As String
        Get
            Return _listType
        End Get
    End Property
 
    Private _products As List(Of Product)
    Public Property Products As List(Of Product)
        Get
            Return _products
        End Get
        Set(value As List(Of Product))
            _products = value
            If value.Count > 0 Then
                _listType = "INC"
            End If
        End Set
    End Property
 
    Private _productsOut As List(Of Product)
    Public Property ProductsOut As List(Of Product)
        Get
            Return _productsOut
        End Get
        Set(value As List(Of Product))
            _productsOut = value
            If value.Count > 0 Then
                _listType = "EXC"
            End If
        End Set
    End Property
 
    Public Sub New(id As Integer, buyingDept As BuyingDept, comment As String, note As String, priceReduction As Boolean, percentage As Decimal)
        Me.Id = id
        Me.BuyingDepartment = buyingDept
        Me.Comment = comment
        Me.Note = note
        Me.PriceReduction = priceReduction
        Me.Percentage = percentage
        Me._listType = Nothing
        Me.Isnew = False
    End Sub
End Class
 
Public Class PromoDetailDemo
    Inherits PromoDetail
 
    Public Property CodeDemo As CodeDemo
    Public Property Vbn As String
 
    Public Sub New(id As Integer, buyingDept As BuyingDept, comment As String, note As String, priceReduction As Boolean, percentage As Decimal, codeDemo As CodeDemo, vbn As String)
        MyBase.New(id, buyingDept, comment, note, priceReduction, percentage)
        Me.CodeDemo = codeDemo
        Me.Vbn = vbn
    End Sub
End Class
 
Public Class PromoDetailOwn
    Inherits PromoDetail
 
    Public Property Department As Department
    Public Property Brand As Brand
    Public Property Seasons As List(Of Season)
    Public Property SeasonsRange As String
 
    Public Sub New(id As Integer, buyingDept As BuyingDept, comment As String, note As String, priceReduction As Boolean, percentage As Decimal, dept As Department, brand As Brand)
        MyBase.New(id, buyingDept, comment, note, priceReduction, percentage)
        Me.Department = dept
        Me.Brand = brand
        Me.SeasonsRange = ""
    End Sub
End Class

Et bien, j'ai recopier ton cas de figure, et tout marche pour moi. Quand j'appelle monobjet de la classe fille, il ne voit qu'un DTO et c'est celui de la classe fille. et je n'ai aucune erreur.

Et j'ai juste mis un Overloads sur la porpriété fille :

CLASSE + DTO :

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
35
36
37
38
39
40
41
42
43
44
45
 
Public Class ClasseMEre
 
    Public Property DTO As DTOMere
 
    Public Sub New(_DTO As DTOMere)
        DTO = _DTO
    End Sub
 
End Class
 
Public Class ClasseFille
    Inherits ClasseMEre
 
    Public Overloads Property DTO As DTOFille
 
    Public Sub New(_DTO As DTOFille)
        MyBase.New(_DTO)
    End Sub
 
End Class
 
Public Class DTOMere
 
    Public NomFamille As String
 
    Public Sub New(ByVal _s As String)
        NomFamille = _s
    End Sub
 
End Class
 
Public Class DTOFille
    Inherits DTOMere
 
    Public Prenom As String
 
    Public Sub New(ByVal _s1 As String, ByVal _s2 As String)
 
        MyBase.New(_s1)
        Me.Prenom = _s2
 
    End Sub
 
End Class

UTILISATION :

Code:

1
2
3
4
5
6
7
8
9
10
  Private Sub MONTEST()
 
        Dim dt_temp As New DTOFille("Dikens", "Charles")
 
        Dim MonObj As New ClasseFille(dt_temp)
 
        MsgBox(MonObj.DTO.NomFamille)
        MsgBox(MonObj.DTO.Prenom)
 
    End Sub

1 pièce(s) jointe(s)

Bon...

J'ai donc remodifié mon code pour tester ta solution (j'avais fait tourner le truc en virant la propriété dto des classes filles et en castant à chaque utilisation).

Voici comment je l'utilise par exemple :
Code:

1 2 3 Dim dtd_id As Integer = CInt(dgvPromoDetailDemo.Rows(e.RowIndex).Cells("dgvcId").Value) Dim dtd As PROMO_ICT_BLL.PromoDetailDemo = Promo.GetDetailDemoById(dtd_id) sfd.FileName = "D-" & CType(dtd.DTO, PROMO_ICT_DTO.PromoDetailDemo).CodeDemo.Code & "-" & dtd.DTO.Percentage.ToString & ".xls"
Et voici ce que cela donne au debug...
Pièce jointe 158379

EDIT
Et pour être complet, voici le code de la fonction GetDetailDemoById :
Code:

1 2 3 4 5 Public Function GetDetailDemoById(dtd_id As Integer) As PromoDetailDemo Return New PromoDetailDemo((From d As PROMO_ICT_DTO.PromoDetailDemo In DTO.DetailsDemo Where d.Id = dtd_id Select d).FirstOrDefault) End Function
On voit bien qu'il y a deux propriété DTO dans l'objet et qu'il essaie apparemment d'accéder à celle qu'il ne faut pas (merci Murphy)...

1 pièce(s) jointe(s)

Erreur stupide de ma part, j'avais oublié d'instancié le DTO de la classe fille

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Class ClasseMEre
 
    Public Property DTO As DTOMere
 
    Public Sub New(_DTO As DTOMere)
        DTO = _DTO
    End Sub
 
End Class
 
Public Class ClasseFille
    Inherits ClasseMEre
 
    Public Overloads Property DTO As DTOFille
 
    Public Sub New(_DTO As DTOFille)
        MyBase.New(_DTO)
        DTO = _DTO 'J'AVAIS OUBLIE CA
    End Sub
 
End Class

Et là ça marche:

Pièce jointe 158380

Citation:

Envoyé par Kropernic

J'ai tenté en mettant la propriété de la classe mère en Overridable et mettre Overrides dans les classes filles mais VS gueule car les types de retour ne sont pas les mêmes.

Merci pour la 2ème partie de code (cela a éclairci)
Pour passer ce cap, j'ai plutôt abordé les génériques

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Public Class PromoDetail(Of T)
    Public Overridable Property DTO As T
 
    Public Sub New(d As T)
        Me.DTO = d
    End Sub
 
    'Public Function GetProducts() As List(Of PROMO_ICT_DTO.Product)
    '    If Me.DTO.Products.Count > 0 Then
    '        Return Me.DTO.Products
    '    ElseIf Me.DTO.ProductsOut.Count > 0 Then
    '        Return Me.DTO.ProductsOut
    '    Else
    '        Return Nothing
    '    End If
    'End Function
End Class
 
Public Class PromoDetailDemo
    Inherits PromoDetail(Of PROMO_ICT_DTO.PromoDetailDemo)
 
    Public Overrides Property DTO As PROMO_ICT_DTO.PromoDetailDemo
 
    Public Sub New(dtd As PROMO_ICT_DTO.PromoDetailDemo)
        MyBase.New(dtd)
    End Sub
 
    Public Function GetProducts() As List(Of PROMO_ICT_DTO.Product)
        If Me.DTO.Products.Count > 0 Then
            Return Me.DTO.Products
        ElseIf Me.DTO.ProductsOut.Count > 0 Then
            Return Me.DTO.ProductsOut
        Else
            Return Nothing
        End If
    End Function
End Class
 
Public Class PromoDetailOwn
    Inherits PromoDetail(Of PROMO_ICT_DTO.PromoDetailOwn)
 
    Public Overrides Property DTO As PROMO_ICT_DTO.PromoDetailOwn
 
    Public Sub New(dto As PROMO_ICT_DTO.PromoDetailOwn)
        MyBase.New(dto)
    End Sub
 
    Public Function GetProducts() As List(Of PROMO_ICT_DTO.Product)
        If Me.DTO.Products.Count > 0 Then
            Return Me.DTO.Products
        ElseIf Me.DTO.ProductsOut.Count > 0 Then
            Return Me.DTO.ProductsOut
        Else
            Return Nothing
        End If
    End Function
End Class

Mais j'ai un problème sur la méthode GetProducts (pour la définir dans la classe mère)
Peux-tu voir si ainsi cela fait avancer ton problème ? (ou si je fais fausse route)

mactwist a répondu entre temps, du coup ma réponse n'est peut-être pas utile.

09/10/2014, 15h46
Kropernic

réponse à mactwist69
Ouais mais on a bien deux propriété alors...

Soit j'ai pas compris le polymorphisme (pas impossible, j'ai jamais eu de cours de POO), soit y a un souci.

Pour moi, le polymorphisme dans ce cas, c'est d'avoir avoir une propriété/méthode/fonction dans la classe mère qui dit A et d'avoir la "même" (ie qui possède le même nom) propriété/méthode/fonction dans la classe fille qui dit B.

Ici, si je comprends bien :
- la classe mère possède une propriété qui dit A
- la classe fille possède une propriété qui dit A et une autre propriété qui dit B
Pas moyen de faire en sorte d'en avoir qu'une seule ??
09/10/2014, 15h58
mactwist69

De mon point de vue le polymorphisme n'est pas aussi simple.

- Si il y a deux fonctions classe mere/fille qui s'appellent pareil, alors si tu déclares un objet mère, il utilisera celui de la mère, sinon celui de la fille.
Mais ça c'est de la réécriture.

- Le polymorphisme c'est de pouvoir mettre la propriété de la classe fille dans celui de la mère.
Ainsi dans la classe mère, si tu appelles cette fameuse fonction qui est récrites dans la classe fille , alors il appellera celui de la fille, car il sait que son objet est fille.

Citation:

Envoyé par rv26t

Merci pour la 2ème partie de code (cela a éclairci)
Pour passer ce cap, j'ai plutôt abordé les génériques

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Public Class PromoDetail(Of T)
    Public Overridable Property DTO As T
 
    Public Sub New(d As T)
        Me.DTO = d
    End Sub
 
    'Public Function GetProducts() As List(Of PROMO_ICT_DTO.Product)
    '    If Me.DTO.Products.Count > 0 Then
    '        Return Me.DTO.Products
    '    ElseIf Me.DTO.ProductsOut.Count > 0 Then
    '        Return Me.DTO.ProductsOut
    '    Else
    '        Return Nothing
    '    End If
    'End Function
End Class
 
Public Class PromoDetailDemo
    Inherits PromoDetail(Of PROMO_ICT_DTO.PromoDetailDemo)
 
    Public Overrides Property DTO As PROMO_ICT_DTO.PromoDetailDemo
 
    Public Sub New(dtd As PROMO_ICT_DTO.PromoDetailDemo)
        MyBase.New(dtd)
    End Sub
 
    Public Function GetProducts() As List(Of PROMO_ICT_DTO.Product)
        If Me.DTO.Products.Count > 0 Then
            Return Me.DTO.Products
        ElseIf Me.DTO.ProductsOut.Count > 0 Then
            Return Me.DTO.ProductsOut
        Else
            Return Nothing
        End If
    End Function
End Class
 
Public Class PromoDetailOwn
    Inherits PromoDetail(Of PROMO_ICT_DTO.PromoDetailOwn)
 
    Public Overrides Property DTO As PROMO_ICT_DTO.PromoDetailOwn
 
    Public Sub New(dto As PROMO_ICT_DTO.PromoDetailOwn)
        MyBase.New(dto)
    End Sub
 
    Public Function GetProducts() As List(Of PROMO_ICT_DTO.Product)
        If Me.DTO.Products.Count > 0 Then
            Return Me.DTO.Products
        ElseIf Me.DTO.ProductsOut.Count > 0 Then
            Return Me.DTO.ProductsOut
        Else
            Return Nothing
        End If
    End Function
End Class

Hello Hervé !

Tes réponses ne sont jamais inutile. Tu apportes à chaque fois une autre manière de voir les choses et c'est toujours instructif !

Ici par contre, le simple fait de devoir répéter la méthode GetProducts dans les classes filles avec un code strictement identique me gêne vraiment trop que pour adopter cette approche.

D'ailleurs, c'est typiquement un cas d'héritage non ? Qu'est-ce qui t'as poussé vers les génériques dans ce cas-ci ??

09/10/2014, 16h06
Kropernic

Citation:

Envoyé par mactwist69

De mon point de vue le polymorphisme n'est pas aussi simple.

- Si il y a deux fonctions classe mere/fille qui s'appellent pareil, alors si tu déclares un objet mère, il utilisera celui de la mère, sinon celui de la fille.
Mais ça c'est de la réécriture.

- Le polymorphisme c'est de pouvoir mettre la propriété de la classe fille dans celui de la mère.
Ainsi dans la classe mère, si tu appelles cette fameuse fonction qui est récrites dans la classe fille , alors il appellera celui de la fille, car il sait que son objet est fille.

Décidément, ce n'est toujours pas clair à 100%...

J'ai beau regardé sur le net, je n'ai pas encore trouvé quelque chose de parfaitement clair...

Je regarderai à cela prochainement.

Merci pour vos réponses à tous les deux !
09/10/2014, 16h18
rv26t

Citation:

Envoyé par mactwist69

- Le polymorphisme c'est de pouvoir mettre la propriété de la classe fille dans celui de la mère.
Ainsi dans la classe mère, si tu appelles cette fameuse fonction qui est récrites dans la classe fille , alors il appellera celui de la fille, car il sait que son objet est fille.

Tu veux dire la possibilité de mettre une instance de la fille dans une variable de type mère ; alors le résultat sera la propriété/méthode de la fille seulement si elle est Overrides. Si elle est Overloads dans ce cas il appelle celle de la mère (ou il faut caster). (c'est une des différences dans l'utilisation des 2)

J'avoue ma définition n'était peut être pas tout à fait exacte.
Je n'ai utiliser le polymorphisme que pour une chose, donc je peux te donner mon exemple, mais il est un peu éloigné du tient.

J'ai une classe mère à MustInherits (donc on on ne peut pas déclarer un objet mère)
J'ai n classes filles qui héritent de la classe mère.

La classe mère a 4 fonctions publique (CRUD) create, update etc...
Donc prenons la fonction Save()

Je créer dans le même temps une fonction (mustoverride) SavedDervided dans la classe mère (qui n'est qu'un déclaration, cf ci dessous)

Du coup dans chacune des classes filles, je suis obligé de créer SavedDerived (grâce, ou a cause de mustoverride)
Save() fait ce qu'il a a faire avec les propriété de la classe mere puis appelle SavedDerived()

Du point de vue utilisation, quand je fais MonObjetFille.Save(), il se rends d'abord dans la classe mère, puis cherche la bonne classe fille et appelle le bon SaveDerived. Le polymorphisme me permet cela.
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 Public MustInherit Class ClasseMEre Public Sub Save() 'ici on fait ce qu'on veut avec les propriétés de la mere 'Puis on appelle le save de la classe fille SaveDerived() End Sub 'On oblige les classes fille a implémenter cette fonction Protected MustOverride Sub SaveDerived() End Class Public Class ClasseFille1 Inherits ClasseMEre 'Foncton invisible depuis l'extérieur Protected Overrides Sub SaveDerived() 'OPeration de sauvegarde spécifique End Sub End Class Public Class ClasseFille2 Inherits ClasseMEre Protected Overrides Sub SaveDerived() 'OPeration de sauvegarde End Sub End Class
Ca me permets de mettre dans Save() le code commun à toutes les classes fille (les règles métier), puis il va exécuter ce qui est spécifique dans SaveDerived de la bonne classe fille.

Je ne sais pas si c'est une utilisation normal... Mais ça ma permis de factoriser tout le code commun dans la classe mère, et mes classes filles ne possède que le spécifique.

09/10/2014, 16h26
mactwist69

Citation:

Envoyé par rv26t

Tu veux dire la possibilité de mettre une instance de la fille dans une variable de type mère ; alors le résultat sera la propriété/méthode de la fille seulement si elle est Overrides. Si elle est Overloads dans ce cas il appelle celle de la mère (ou il faut caster). (c'est une des différences dans l'utilisation des 2)

Excellent. Je prends bonne note.
09/10/2014, 16h26
rv26t

Citation:

Envoyé par Kropernic

Soit j'ai pas compris le polymorphisme (pas impossible, j'ai jamais eu de cours de POO), soit y a un souci.

Je te rassure, moi non plus je n'ai pas eu de cours. (j'apprend aussi à travers les discussions et en cherchant)

Citation:

Envoyé par Kropernic

Ici par contre, le simple fait de devoir répéter la méthode GetProducts dans les classes filles avec un code strictement identique me gêne vraiment trop que pour adopter cette approche.

D'ailleurs, c'est typiquement un cas d'héritage non ? Qu'est-ce qui t'as poussé vers les génériques dans ce cas-ci ??

Je suis d'accord avec toi pour la répétition, mais avant d'aller plus loin, je voulais savoir si cela correspondait, afin que je ne perde pas trop de temps pour rien.
Je comptais voir comment faire sinon.

Pourquoi les génériques, parceque avec le polymorphisme tu ne changes pas le type normalement. [Edit=précision] je parle des méthodes que l'on substitues [/Edit]
Afin, après je ne suis pas expert en POO non plus, je ne connais donc pas tout.

Citation:

Envoyé par Kropernic

J'ai beau regardé sur le net, je n'ai pas encore trouvé quelque chose de parfaitement clair...

Le problème, c'est que l'on ne trouve que des cas simples ou de base.
09/10/2014, 17h17
Kropernic

Ca veut dire qu'on ne devrait pas vouloir faire ce genre de truc ?? :-/

Je ne dis pas ça (vu que ton code est tout de même fonctionnel), j'ai simplement pensé faire autrement, cela ne veut pas dire que c'est mieux (de l'héritage et du générique :aie:).
[Edit] A première vu, ca ne semble pas une bonne idée.

sinon (cela n'a rien à voir), que penses-tu d'écrire ta méthode comme ça ?
Code:

1 2 3 4 5 Public Function GetProducts() As List(Of PROMO_ICT_DTO.Product) If Me.DTO.Products.Count > 0 Then Return Me.DTO.Products If Me.DTO.ProductsOut.Count > 0 Then Return Me.DTO.ProductsOut Return Nothing End Function
Je trouve plus lisible

Citation:

Envoyé par Kropernic

D'ailleurs, c'est typiquement un cas d'héritage non ? Qu'est-ce qui t'as poussé vers les génériques dans ce cas-ci ??

Ben justement, cela m'a plus fait penser à du générique ou c'est seulement le type qui change (du genre List(of ...))

Du coup, pour finir avec les génériques, même si cela ne semble pas une bonne piste, je te livre l'approche.
Tu peux créer une seule classe PromoDetail(Of T) (plus de classe PromoDetailDemo et PromoDetailOwn)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Public Class PromoDetail(Of T) Public Property DTO As Object ' As T aurait été mieux, mais impossible d'exploiter le DTO Public Sub New(d As T) Me.DTO = d End Sub Public Function GetProducts() As List(Of PROMO_ICT_DTO.Product) If Me.DTO.Products.Count > 0 Then Return Me.DTO.Products If Me.DTO.ProductsOut.Count > 0 Then Return Me.DTO.ProductsOut Return Nothing End Function End Class
Test d'utilisation par création directe (pas correct puisque les listes ne sont pas crées, mais pour test)
Code:

1 2 3 4 5 6 Dim UnePromoDetailDemo As PromoDetail(Of PROMO_ICT_DTO.PromoDetailDemo) = New PromoDetail(Of PROMO_ICT_DTO.PromoDetailDemo)(New PROMO_ICT_DTO.PromoDetailDemo(1, Nothing, "", "", True, 1, Nothing, "")) UnePromoDetailDemo.DTO.comment = "coucou" MessageBox.Show(UnePromoDetailDemo.DTO.Comment) Dim UnePromoDetailOwn As PromoDetail(Of PROMO_ICT_DTO.PromoDetailOwn) = New PromoDetail(Of PROMO_ICT_DTO.PromoDetailOwn)(New PROMO_ICT_DTO.PromoDetailOwn(1, Nothing, "", "", True, 1, Nothing, Nothing)) UnePromoDetailOwn.DTO.Note = "remarque" MessageBox.Show(UnePromoDetailOwn.DTO.Note)
Le problème c'est que l'on a pas l'intellissence (c'est facheux)
Cela doit venir de la propriété déclarée en object, mais impossible de la déclarer de type T (je dois oublier quelque chose). Tu auras peut-être une idée.
A voir si c'est exploitable dans ton contexte de travail, je ne peux pas tout émuler.

10/10/2014, 13h18
Kropernic

C'est intéressant :).

Je n'ai malheureusement pas le temps de tester cette approche pour le moment. C'est un peu la panique ici.

Je suis cependant étonné qu'il ne faille pas caster la propriété DTO dans la fonction GetProducts.

Es-tu bien en Option Strict On et Option Explicit On ??
10/10/2014, 13h29
rv26t

Arf, quand je fais des tests j'oublie toujours cette Option Strict On. (et il ne veut pas les liaisons tardives)
Ne perds pas de temps avec cette idée.

Voir 40 message(s) de cette discussion en une page

Fuseau horaire GMT +2. Il est actuellement 06h59.