Discussion :

[ahikari]

bonjour a tous
je fait une petite application sans bd et j'utilise pour se faire une serialisation binaire.
mon probleme c'est chaque fois que je fait ma serialisation et ma deserialition elles ne permette pas d'afficher les anciens elements mais affiche dans ma listview seulement la derniere valeur saisie. voici mon code

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
Imports System.IO
Imports System.Runtime.Serialization.Formatters.binary
<Serializable()> _
Public Class Form1
    Private myCompta As New Compta
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        myCompta.Taux = Me.TextBox1.Text
        Me.ListView1.Items.Add(myCompta.Taux)
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        Dim myFileStream As Stream = File.Create("Compta.bin")
        Dim serializer As New BinaryFormatter
        Dim items(Me.ListView1.Items.Count - 1) As Object
        serializer.Serialize(myFileStream, myCompta)
        myFileStream.Close()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If File.Exists("Compta.bin") Then
            Dim myFileStream As Stream = File.OpenRead("Compta.bin")
            Dim deserializer As New BinaryFormatter()
            myCompta = CType(deserializer.Deserialize(myFileStream), Compta)
            myFileStream.Close()
        End If
        Me.ListView1.Items.Add(myCompta.Taux)
    End Sub
End Class
<Serializable()> Public Class Compta
    Public Total As Double
    Public Taux As Double
End Class

[azstar]

bonjour a tous
je fait une petite application sans bd et j'utilise pour se faire une serialisation binaire.
mon probleme c'est chaque fois que je fait ma serialisation et ma deserialition elles ne permette pas d'afficher les anciens elements mais affiche dans ma listview seulement la derniere valeur saisie. voici mon code

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
Imports System.IO
Imports System.Runtime.Serialization.Formatters.binary
<Serializable()> _
Public Class Form1
    Private myCompta As New Compta
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        myCompta.Taux = Me.TextBox1.Text
        Me.ListView1.Items.Add(myCompta.Taux)
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        Dim myFileStream As Stream = File.Create("Compta.bin")
        Dim serializer As New BinaryFormatter
        Dim items(Me.ListView1.Items.Count - 1) As Object
        serializer.Serialize(myFileStream, myCompta)
        myFileStream.Close()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If File.Exists("Compta.bin") Then
            Dim myFileStream As Stream = File.OpenRead("Compta.bin")
            Dim deserializer As New BinaryFormatter()
            myCompta = CType(deserializer.Deserialize(myFileStream), Compta)
            myFileStream.Close()
        End If
        Me.ListView1.Items.Add(myCompta.Taux)
    End Sub
End Class
<Serializable()> Public Class Compta
    Public Total As Double
    Public Taux As Double
End Class

c'est a cause de fait que ton fichier s'ecrase a chaque fois et ca est du a que vous ouvriez votre fichier en mode creation a chaque fois que vous fermez votre form il recupere le dernier ligne de votre listview et il ecrase le fichier