Discussion :

[hawax]

Bonjour a tous
J'ai crée une Classe contenant une Classe générique comme ceci:

Code vb :

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
46
47
48
49
50
51
52
53
54
55
 
Public Class ANNEXE
    Const ConstEntete As String = "E1"
    Const TypeDoc As String = "An1"
    Const ConstFin As String = "T1"
    Private _mMatrFisc As Double
 
    Private  maCol As System.Collections.Generic.List(Of Employes)
 
    Public Sub New()
        maCol = New System.Collections.Generic.List(Of Employes)
    End Sub
 
    Public Property Matricule_Fiscal() As Double
        Get
            Return _mMatrFisc
        End Get
 
        Set(ByVal Value As Double)
            _mMatrFisc = Value
        End Set
    End Property
 
    Public ReadOnly Property Item(ByVal lIndex As Integer) As Employes
        Get
            Item = maCol.Item(lIndex)
        End Get
    End Property
 
    Public Sub AddSalarie(ByVal Sal As Employes)
        maCol.Add(Sal)       
     End Sub
 
Public Class Employes
 
Private Shared _yNomPrenom As String
      Public Sub New()
 
      End Sub
 
 
       Public Property NomPrenom() As String
        Get
            Return _yNomPrenom
        End Get
 
        Set(ByVal Value As String)
            _yNomPrenom = Value
        End Set
    End Property
 
End Class
 
 
End Class

J'utilise ma classe comme suit en la remplissant a partir d'un gridview:

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Dim ANX As New ANNEXE
ANX.Matricule_Fiscal = txtMat.Text
 
For i As Integer = 0 To GridEmploye.Rows.Count - 1
 
            Dim ANX_Employe As New ANNEXE.Employes
            ANX_Employe.NomPrenom =  GridEmploye.Rows.Item(i).Cells(0).Value
            ANX.AddSalarie(ANX_Employe)
            ANX_Employe = Nothing
Next

Le problème c'est que si par exemple après avoir ajouté 3 employés ("toto1","Toto2","toto3") , j'ai toujours les mêmes éléments dans ma collection !
c'est a dire que dans ANX.Item(0).NomPrenom j'ai toto3
dans ANX.Item(1).NomPrenom j'ai toto3
dans ANX.Item(2).NomPrenom j'ai toto3
alors que je devrai avoir dans ANX.Item(0).NomPrenom toto1
dans ANX.Item(0).NomPrenom toto2
dans ANX.Item(0).NomPrenom toto3

J'ai du loupé un truc

Merci d'avance pour votre aide

[olsimare]

Bonjour.

Je vois pas la déclaration de _yNomPrenom dans ta classe Employé. A partir du moment où elle n'est pas déclarée, faut s'attendre à un comportement étrange quand tu récupéres tes employés (en l'occurence tu te récupéres la derniére valeur).

Le conseil : utilise Option Explicit et Option Strict On, ça va t'éviter ce genre de surprise.

PS : je pense que le titre du post est impropre, la classe Annexe n'a rien de générique par elle même. Disons donc Probléme de Classe utilisant un collection générique.

Cdt.

[hawax]

Merci Pour les conseils

Mais le problème persiste toujours...

[smyley]

Avec une exécution pas à pas (debug), que vaut "GridEmploye.Rows.Item(i).Cells(0).Value" à chaque étape ?

[hawax]

ça contient bien les valeurs correctes.

C'est bizarre car si j'ajoute 3 éléments , j'ai bien un count = 3
mais c toujours les mêmes éléments , a savoir, toujours le dernier ajouté...

J'ai aussi testé le truc sur un nouveau projet comme ceci

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
46
47
48


Imports System.Collections

Public Class MaCollection
    Private Shared maCol As System.Collections.Generic.List(Of Employes)
    Public Sub New()
        maCol = New System.Collections.Generic.List(Of Employes)
    End Sub

    Public ReadOnly Property Item(ByVal lIndex As Integer) As Employes
        Get
            Item = maCol.Item(lIndex)
        End Get
    End Property

    Public Function AddSalarie(ByVal Sal As Employes)
        maCol.Add(Sal)
        AddSalarie = Sal
    End Function

End Class




Public Class Employes

    Private Shared _yNomPrenom As String
  
    Public Sub New()

    End Sub

    Public Property NomPrenom() As String
        Get
            Return _yNomPrenom
        End Get

        Set(ByVal Value As String)
            _yNomPrenom = Value
        End Set
    End Property


End Class

et puis dans une form:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Col As New MaCollection
        Dim emp As New Employes
        Dim emp2 As New Employes
 
        emp.NomPrenom = "xyz"
        Col.AddSalarie(emp)
 
        emp2.NomPrenom = "abc"
        Col.AddSalarie(emp2)
        MsgBox(Col.Item(0).NomPrenom)
        MsgBox(Col.Item(1).NomPrenom)
    End Sub

J'ai toujours "abc" dans tous les items

[smyley]

Tain tu m'as fait faire du VB, j'en ai horreur

Bref, retire le "Shared" qu'il y a devant "_yNomPrenom" ...
Le Shared signifie (à priori, équivalent du static) que toutes les instances de ta classe utiliseront le même objet et donc le modifieront ce qui n'est pas l'objectif ...

[hawax]

YESS ca marche !!!

J'EXIGE UNE EXPLICATION !!!!!

[smyley]

J'EXIGE UNE EXPLICATION !!!!!

Le Shared signifie (à priori, équivalent du static) que toutes les instances de ta classe utiliseront le même objet et donc le modifieront ce qui n'est pas l'objectif ...

[hawax]

Merci Beaucoup