[VB6] Copie d'objet

Version imprimable

20/08/2004, 15h40
preverse

[VB6] Copie d'objet
Bonjour,

J'ai un module de classe appelé article

je fais :
Code:

1 2 3 Set article1 = new article article2=article1
Cela a pour effet que toute modif de article1 est valable pour article2 et inversement.
Comment puis-je faire pour que ce soit deux objets independants ?

Merci de votre aide.

P.R
20/08/2004, 16h26
Rico Nuch

Hello...

Pour en faire deux objets distincts, il faut absolument éviter ça :

article2=article1

Si ton but est de créer deux objets... euh... semblables mais distincts, tu dois affecter de la même façon toutes les propriétés de l'objet "modèle" et de l'objet "copie" :

article2.propriétéA = article1.propriétéA
article2.propriétéB = article1.propriétéB
article2.propriétéC = article1.propriétéC
etc...

Rico
20/08/2004, 16h27
adjava
Pour ques les deux objets soit indépendants, il ne faut qu'ils aient la même adresse mémoire. Or dans ton cas tu faits pointé tes deux objets vers la même adresse.
Code:

1 2 3 Set Article1=new article Set Article2=new article
A toi après d'implémenter des méthodes de classes pour pouvoir comparer les objets entre eux et vérifier s'ils sont compatibles si j'ai bien compris ton problème.
20/08/2004, 16h35
preverse

Merci, vous avez bien compris mon problème, du coup, problème suivant, je crée une méthode copie dans mon module de classe, et il ne la reconnait pas dans mon code, quelle est la bonne syntaxe ?
Propriété ou mthode non gérée par cet objet ???

P.R
20/08/2004, 16h37
Rico Nuch

Difficile de te répondre sans voir ton code...

Rico
20/08/2004, 16h40
preverse

Visiblement, il faut lui passer en premier paramètre une variable défini comme un objet, mais je ne vois pas du tout à quoi elle sert ????

P.R
20/08/2004, 16h41
adjava

Comme le dit Nico donne nous ton code. Je ne pense pas que ce soit trop difficile. Je ne sais plus si on le faire en VB, pas fait depuis longtemps (java, c# powaaa :D ) mais tu n'aurais pas mis la méthode copie en private?
20/08/2004, 16h46
preverse

Comme je viens de le dire, ca fonctionne avec un premier paramètre as object du style suivant :

Code:

Public Sub copie(moi As Object, ByVal autreArticle As article)

J'ai lu qu'il est obligatoire et qu'il est sensé représenté l'objet auquel s'applique la méthode.
Mais pour moi, quand je fais monTruc.copie, l'objet auquel s'applique la méthode, c'est forcement monTruc, donc je ne vois pas l'interet de ce parametre.

P.R
20/08/2004, 16h51
adjava

Là j'avoue que je calle un peu étant donné que j'ai très peu utilisé les pseudo classes de VB. Je suis passé à l'objet direct.
20/08/2004, 16h59
preverse

Comme je te comprends !!! :cry:

P.R
20/08/2004, 17h12
adjava

j'en ai marre vite fait de VB malgré qu'il me rende encore service de temps en temps pour du traitement de fichier par exemple mais pour des projets ce n'est pas la peine

Il s'agit certes de pseudo-classes, mais le fonctionnement de ces classes est largement plus simple que celles de java ou C++...

Voici un exemple :

Classe Article :

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
Private strNom As String
Private intPrix As Integer
 
Property Get Nom() As String
    Nom = strNom
End Property
 
Property Let Nom(value As String)
    strNom = value
End Property
 
Property Get Prix() As Integer
    Prix = intPrix
End Property
 
Property Let Prix(value As Integer)
    intPrix = value
End Property
 
 
Public Sub Copy(ByRef Other As Article)
    Other.Nom = strNom
    Other.Prix = intPrix
End Sub

Module1 :

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
Public Sub Main()
    Dim Article1 As New Article
    Dim Article2 As New Article
 
    Article1.Nom = "Chapeau de paille"
    Article1.Prix = 15
 
    Article1.Copy Article2
    DebugDisplay Article1, Article2
 
    Article2.Nom = "Parasol"
    DebugDisplay Article1, Article2
 
End Sub
 
Private Sub DebugDisplay(A1 As Article, A2 As Article)
    Static Count As Integer
 
    Count = Count + 1
 
    Debug.Print "Passage no " & Count
    Debug.Print "Article 1 - Nom  : " & A1.Nom
    Debug.Print "Article 1 - Prix : " & A1.Prix
    Debug.Print "Article 2 - Nom  : " & A2.Nom
    Debug.Print "Article 2 - Prix : " & A2.Prix
End Sub

23/08/2004, 10h04
preverse

Merci, je clos tout ça.

P.R