Discussion :

[Tidus159]

Bonjour,

je cherche à utiliser une datagridview pour afficher, une liste de personnes sérialisée en XML.

J'ai un objet Personne nom, prenom.

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
 
 
Imports System.Xml.Serialization
Imports System.IO
 
<Serializable()> _
Public Class Personne
 
    Private _Prenom As String
    Private _Nom As String
    Private _Compte As String
 
    Public Sub New(ByVal prenom As String, ByVal nom As String, ByVal compte As String)
        Me._Prenom = prenom
        Me._Nom = nom
        Me._Compte = compte
    End Sub
 
    Public Property Prenom() As Integer
        Get
            Return Me._Prenom
        End Get
        Set(ByVal value As Integer)
            _Prenom = value
        End Set
    End Property
 
    Public Property Nom() As Integer
        Get
            Return Me._Nom
        End Get
        Set(ByVal value As Integer)
            _Nom = value
        End Set
    End Property
 
    Public Property Compte() As Integer
        Get
            Return Me._Compte
        End Get
        Set(ByVal value As Integer)
            _Compte = value
        End Set
    End Property
 
 
End Class

Ensuite une liste de personne avec des méthodes de sérialisation

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
 
Imports System.Xml.Serialization
Imports System.IO
 
<Serializable()> _
Public Class ListePersonne
 
    Private Shared liste As New ArrayList
 
    Public Shared Function Serialiser(ByVal fichier As String) As Boolean
        If liste Is Nothing Then : Return False
        End If
 
        Dim stream As StreamWriter = New StreamWriter(fichier)
        Dim serializer As XmlSerializer = New XmlSerializer(GetType(Personne))
        serializer.Serialize(stream, liste)
        stream.Close()
        Return True
    End Function
 
    Public Shared Function Deserialiser(ByVal fichier As String) As ArrayList
        If Not File.Exists(fichier) Then Return Nothing
        Dim deserializer As XmlSerializer = New XmlSerializer(GetType(Personne))
        Dim stream As StreamReader = New StreamReader(fichier)
        Dim result As Object = Nothing
        result = deserializer.Deserialize(stream)
        stream.Close()
        Return result
    End Function
 
    Public Shared Function Ajouter(ByVal pers As Personne) As Boolean
        If (Not personneExiste(pers.Nom, pers.Prenom)) Then
            liste.Add(pers)
            Return True
        End If
        Return False
    End Function
 
    Private Shared Function personneExiste(ByVal nom As String, ByVal prenom As String) As Boolean
        For Each p As Personne In liste
            If p.Nom = nom And p.Prenom = prenom Then Return True
        Next
        Return False
    End Function
 
 
End Class

mais je ne sais pas comment faire le lien entre ma liste et mon datagridview.

Avez vous une idée.

Merci par avance.

@+

[Ramajb]

Code :

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

DataGridView1.DataSource=Deserialiser(..);

[Tidus159]

J'ai l'air bête, je voulais faire ça en plaçant mon composant

Merci !