Classes enfants d'une classe ?

Version imprimable

Bonjour,
Quelle est la syntaxe pour créer une sous-classe dans une classe en vb.net et l'appeler ensuite dans le code ?

Je m'explique, j'ai une classe définie avec des propriétés et j'aimerais créer une classe à l'intérieur avec ses propres propriétés. En fait, sur mon site web en ASP.NET, j'ai créé un objet boutique, mais selon le mode de paiement, j'aimerais pouvoir créer des sous-classes dans ma classe boutique afin de pouvoir créer des propriétés et fonctions propres à chaque mode de paiement de la boutique.

Je voudrais un truc comme ça (exemple, ce que je voudrais faire est en rouge) :
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 Public Class Boutique Private myvar1 As String = "87878711" Private myvar2 As String = "656654" ... Public ReadOnly Property var1() As String Get Return myvar1 End Get End Property Public ReadOnly Property var2() As String Get Return myvar2 End Get End Property ... Public Function BouticIsValid() As boolean ..... return boolmyvar End Function ....etc.... Public Class ModePayment1 Private mode1var1 As String = "87878711" .... Public Sub ValiderPayement() ... End Sub End class End Class
Et ensuite, comment appeler la procédure ValiderPayement() dans ma page web dans le code behind ??? J'ai essayer un truc comme ça mais en vain .... je ne trouve pas d'infos sur les cours vb.net
Code:

1 2 Dim objBoutique As New Boutique objBoutique.ModePayment1.ValiderPayement()
Merci par avance.

27/05/2010, 15h35
Nathanael Marchand

Tu as effectivement créé une inner-class ModePayement1 mais tu ne l'as jamais instancié. Ta classe boutique doit posséder une propriété de type ModePayment1. Je t'invite à lire un tutorial sur les bases de VB.Net

Bonjour,

Je ne sais pas si cela te convient mais je ferais de la manière suivante:

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
 
Public Class Boutique
    Private myvar1 As String = "87878711"
    Private myvar2 As String = "656654"
    ...
 
    Public ReadOnly Property var1() As String
        Get
            Return myvar1
        End Get
    End Property
    Public ReadOnly Property var2() As String
        Get
            Return myvar2
        End Get
    End Property
    ...
 
   Public Function BouticIsValid() As boolean
      .....
      return boolmyvar
   End Function
 
   ....etc....
 
Public Function SelectModePayment1() as ModePayment1
dim modPayment as New ModePayment1
return modPayment
End Function
 
End Class
 
Public Class ModePayment1
      Private mode1var1 As String = "87878711"
      ....
 
      Public Sub ValiderPayement()
        ...
      End Sub
 
   End class

Des classes dans des classes, je n'ai jamais vu.

Nicolas

27/05/2010, 15h42
Stephane_br

Ben oui, je vient de me mettre à vb.net et je ne trouve pas d'exemples à ce sujet. Je n'ai pas de soucis pour créer une classe mais ce problème là je ne comprend pas comment vb fonctionne par rapport à ça. Le fait de créer un objet dans l'objet boutique, lorsque je crée une déclare une nouvelle variable du type boutique avec new, vb.net ne crée-t-il pas les objets enfants à l'intérieur de la classe parente ?
27/05/2010, 15h48
Stephane_br

merci Nicolas pour ta réponse. Je ne savais pas trop si c'était faisable. Il me semblait que l'on pouvait créer des sous-objets à volonté ....
Je vais essayer comme ça alors.
Merci.
27/05/2010, 15h49
methylene

Citation:

Des classes dans des classes, je n'ai jamais vu.

Et je n'en vois pas l'intérêt.
27/05/2010, 16h03
Stephane_br
mon idée était de pouvoir créer des objets dans mon objet boutique afin de pouvoir avoir directement accès aux valeurs des variables de l'objet boutique (comme son identifiant etc ...).
En fait, je voulais avoir quelque chose dans ce style au final :
Code:

1 2 3 4 objBoutic.ModePaymentCarte.ValiderPayement() objBoutic.ModePaymentCheque.ValiderPayement()
...parcequ'en fait, pour mon sous-objet ModePaymentCarte je voulais créer des variables et fonctions (valeurs des variables de retour de la banque, traitement de sécurité divers, validation du paiement ...etc) dont je n'ai pas besoin pour l'objet ModePaymentCheque mais qui tous deux utilisent des valeurs des variables déclarées dans l'objet boutique (identifiant etc ...). :?:calim2:
27/05/2010, 16h05
Geo2A

Bonjour,

Dis-nous de quel langage tu viens ça sera plus facile ...

Des classes dans les classes c'est des choses qui se font tous les jours, c'est juste une question de vocabulaire.

Voilà comment j'aborderai la chose

Une classe boutique avec une propriété LeModeDePaiement de type ModeDePayement

ModeDepayement étant une classe générique qui possède une méthode ValiderPaiement

Des classes (mode1, mode2) héritant de ModeDePayement qui implémentent réellement la méthode ValiderPaiement

Quand l'utilisateur va choisir un mode de paiement, le programme instanciera un objet du type qui va bien (mode1 ou mode2 etc ...)

Ensuite il attribuera à la propriété lemodedepaiement de l'objet boutique cet objet

Puis il appellera Boutique.lemodepaiement.validerpayement

C'est toute la magie du polymorphisme!!
27/05/2010, 16h09
Stephane_br

Je viens d'ASP tout court. Soit vbscript/javascript ....etc....
Gros changement pour moi donc.
27/05/2010, 16h09
methylene

Citation:

Des classes dans les classes c'est des choses qui se font tous les jours, c'est juste une question de vocabulaire.

Comme tu dis, question de vocabulaire :-).

Peut-être déclarer tes variables en public, en début de class ?
27/05/2010, 16h10
Stephane_br

Citation:

Envoyé par Geo2A

Bonjour,

Dis-nous de quel langage tu viens ça sera plus facile ...

Des classes dans les classes c'est des choses qui se font tous les jours, c'est juste une question de vocabulaire.

Voilà comment j'aborderai la chose

Une classe boutique avec une propriété LeModeDePaiement de type ModeDePayement

ModeDepayement étant une classe générique qui possède une méthode ValiderPaiement

Des classes (mode1, mode2) héritant de ModeDePayement qui implémentent réellement la méthode ValiderPaiement

Quand l'utilisateur va choisir un mode de paiement, le programme instanciera un objet du type qui va bien (mode1 ou mode2 etc ...)

Ensuite il attribuera à la propriété lemodedepaiement de l'objet boutique cet objet

Puis il appellera Boutique.lemodepaiement.validerpayement

C'est toute la magie du polymorphisme!!

Merci pour ta réponse.
j'avoue que ta réponse me parait logique mais je sèche un peu pour le coup. Je pense que je vais y arriver mais il me faut regarder ça de plus près. Pour le moment, je suis un peu dans le flou. :roll:

Pti cadeau.:mouarf:
Voilà pour le passage de paramètres

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
 
Public Class boutique
    'Memoire du type de payement de ton instance boutique
    Private ModePay As ModePayement
 
    'Tu choisis ton mode
    Public Sub ChoosePayment(ByVal Mode As Integer)
        If ModePay Is Nothing Then
            ModePay = New ModePayement
            Select Case Mode
                Case 0
                    ModePay.Set_Parametres_Differents_entre_les_modes_de_payement(1, 2)
                Case 1
                    ModePay.Set_Parametres_Differents_entre_les_modes_de_payement(3, 4)
            End Select
        End If
    End Sub
    ' tu rend ta validation
    Public Function validate() As Boolean
        If Not ModePay Is Nothing Then
            Return ModePay.Validate
        Else
            Throw New Exception("Pas d'instance de classe ModePayement créée")
        End If
    End Function
 
    'Tu changes ton mode de payement
    Public Sub ChangeMode(ByVal Mode As Integer)
        ModePay = Nothing
        ChoosePayment(Mode)
    End Sub
End Class
 
'Ta classe de mode de payement
Friend Class ModePayement
    'tu déclares tes différences entres tes modes de payements
    Private différence1 As Integer
    Private différence2 As Integer
 
    'L'instance est créé ici
    Friend Sub New()
        MyBase.New()
    End Sub
 
    'Tu différencie tes modes de payement ici
    Friend Sub Set_Parametres_Differents_entre_les_modes_de_payement(ByVal diff1 As Integer, ByVal diff2 As Integer)
        différence1 = diff1
        différence2 = diff2
    End Sub
 
    Friend Function Validate() As Boolean
        Try
            'Ton truc de validation
            Dim Test As Boolean = True
            Return Test
        Catch ex As Exception
            'Au cas ou
            Return False
        End Try
 
    End Function
End Class

Voilà comme ca tu peux passer des parametres et tout et tout. J'ai pas vérifier mais l'idée est là.

Nicolas

27/05/2010, 16h38
Stephane_br

Merci beaucoup nicohutse pour ce code ;)
ça va me permettre de mieux comprendre.
Merci. :ccool:
27/05/2010, 16h51
Nathanael Marchand

Les nesteds classes peuvent être utilisés pour pouvoir acceder aux membres privés de l'outer class

Bonjour,

Une classe boutique

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
Public Class Boutique
 
    Private mLemodeDePayement As ModePayement
    Public Property LemodeDePayement() As ModePayement
        Get
            Return mLemodeDePayement
        End Get
        Set(ByVal value As ModePayement)
            mLemodeDePayement = value
        End Set
    End Property
 
 
    Private myvar1 As String = "87878711"
    Private myvar2 As String = "656654"
 
    Public ReadOnly Property var1() As String
        Get
            Return myvar1
        End Get
    End Property
    Public ReadOnly Property var2() As String
        Get
            Return myvar2
        End Get
    End Property
 
End Class

Une classe générique de mode de payement

Code:

1
2
3
4
5
Public Class ModePayement
    Public Overridable Sub ValiderPayement()
'rien
    End Sub
End Class

Deux classes Mode1 et mode2 qui héritent de la précédente

Code:

1
2
3
4
5
6
7
Public Class Mode1
    Inherits ModePayement
 
    Public Overrides Sub ValiderPayement()
        'ici ton code pour le mode de payement 1
    End Sub
End Class

Code:

1
2
3
4
5
6
7
Public Class Mode2
    Inherits ModePayement
 
    Public Overrides Sub ValiderPayement()
        'ici le code pour le type 2
    End Sub
End Class

Mettons en pratique dans une form avec 2 boutons si je clique sur 1 je prends le mode de payement 1 si je clique sur le button 2 etc...

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
Public Class Form1
    Private maboutique As Boutique
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        maboutique = New Boutique
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim lemode As New Mode1
 
        maboutique.LemodeDePayement = lemode
 
        maboutique.LemodeDePayement.ValiderPayement()
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim lemode As New Mode2
 
        maboutique.LemodeDePayement = lemode
 
        maboutique.LemodeDePayement.ValiderPayement()
 
    End Sub
End Class

Citation:

Envoyé par Geo2A

Bonjour,

Une classe boutique

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
Public Class Boutique
 
    Private mLemodeDePayement As ModePayement
    Public Property LemodeDePayement() As ModePayement
        Get
            Return mLemodeDePayement
        End Get
        Set(ByVal value As ModePayement)
            mLemodeDePayement = value
        End Set
    End Property
 
 
    Private myvar1 As String = "87878711"
    Private myvar2 As String = "656654"
 
    Public ReadOnly Property var1() As String
        Get
            Return myvar1
        End Get
    End Property
    Public ReadOnly Property var2() As String
        Get
            Return myvar2
        End Get
    End Property
 
End Class

Une classe générique de mode de payement

Code:

1
2
3
4
5
Public Class ModePayement
    Public Overridable Sub ValiderPayement()
'rien
    End Sub
End Class

Deux classes Mode1 et mode2 qui héritent de la précédente

Code:

1
2
3
4
5
6
7
Public Class Mode1
    Inherits ModePayement
 
    Public Overrides Sub ValiderPayement()
        'ici ton code pour le mode de payement 1
    End Sub
End Class

Code:

1
2
3
4
5
6
7
Public Class Mode2
    Inherits ModePayement
 
    Public Overrides Sub ValiderPayement()
        'ici le code pour le type 2
    End Sub
End Class

Mettons en pratique dans une form avec 2 boutons si je clique sur 1 je prends le mode de payement 1 si je clique sur le button 2 etc...

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
Public Class Form1
    Private maboutique As Boutique
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        maboutique = New Boutique
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim lemode As New Mode1
 
        maboutique.LemodeDePayement = lemode
 
        maboutique.LemodeDePayement.ValiderPayement()
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim lemode As New Mode2
 
        maboutique.LemodeDePayement = lemode
 
        maboutique.LemodeDePayement.ValiderPayement()
 
    End Sub
End Class

ModePayment et ModePayment.ValiderPayment devraient être abstraites (MustOverride et MustInherit)

27/05/2010, 17h49
Geo2A

Bonjour,

Citation:

ModePayment et ModePayment.ValiderPayment devraient être abstraites (MustOverride et MustInherit)

Dans l'absolu oui mais j'ai pas voulu lui embrouiller la tête ! Sachant que c'est juste une proposition, après s'il a une partie de code commune dans le traitement de son validerpayement il peut le mettre dans sa classe de base et appliquer un mybase.validerpayement avant le traitement spécifique ...
Tout ça c'est une question de modélisation du problème, j'ai voulu commenceer par le commencement ...