[VBNET]Comment instancier à partir d'1 objet dont on hérite?

Version imprimable

23/02/2006, 13h36
NicolasJolet

[VBNET]Comment instancier à partir d'1 objet dont on hérite?

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.

Citation:

Envoyé par Exemple de ce que j'aimerais arriver à faire

' 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
23/02/2006, 13h55
abelman

Bonjour,

Une recopie des membres de cPiece vers cPieceToProduce dans le constructeur.
23/02/2006, 13h58
NicolasJolet

Et je suis obligé de le faire membre à membre ou il y a moyen de toute faire en une opération?
23/02/2006, 14h04
abelman

Citation:

Envoyé par NicolasJolet

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
23/02/2006, 14h10
NicolasJolet

Ok, merci beaucoup pour l'info :)

Exemple basique

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 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