Serialisation binaire en vb.net
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:
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 |
