Discussion :

[NicolasJolet]

Désolé pour ce titre hasardeux
En fait j'ai 2 classes qui ont une relation d'héritage :
cPiece et cPieceToProduce (qui hérite de cPiece)
Dans mon code j'aimerais créer un nouvel objet cPieceToProduce à partir d'un objet cPiece existant.

' pcPiece a été initialisé et rempli avant
dim pctpPiece as new cPieceToProduce(pcPiece)

Mais je ne sais pas du tout comment je dois m'y prendre...
Dois-je recopier tous les membres membres-à-membres ou y-a-t-il une opération qui effectue deja ce travail?

Merci d'avance,
Nicolas

[abelman]

Bonjour,

Une recopie des membres de cPiece vers cPieceToProduce dans le constructeur.

[NicolasJolet]

Et je suis obligé de le faire membre à membre ou il y a moyen de toute faire en une opération?

[abelman]

Et je suis obligé de le faire membre à membre ou il y a moyen de toute faire en une opération?

Il y a pas de fonction toute faite pour cela. A toi de créer la tienne

[NicolasJolet]

Ok, merci beaucoup pour l'info

[neguib]

Exemple basique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 MaClasseBase
 
   Private monchamp1 As String
 
   Public Sub New()
      MyBase.New()
      Me.monchamp1 = ""
   End   
   Public Property Champ1 As String
      Get
         Return Me.monchamp1
      End Get
      Set(ByVal value As String)
         Me.monchamp1 = value
      End Set
   End Property
   '...
End Class
 
Public MaClasseFille
   Inherits MaClasseBase
 
   Private monchamp2 As Integer
 
   Public Sub New()
      MyBase.New()
      Me.monchamp2 = 0
   End
 
   Public Sub New(ByVal objet As MaClasseBase)
      MyBase.New()
      MyBase.Champ1 = objet.Champ1
      Me.monchamp2 = 0
   End
   Public Property Champ2 As Integer
      Get
         Return Me.monchamp2
      End Get
      Set(ByVal value As Integer)
         Me.monchamp2 = value
      End Set
   End Property
   '...
End Class