Guardando el Estado de Los Objectos BinaryFormatter
Si alguna vez pensaste en como guardar el estado de los objetos que tienes en tu programa, no me refiero solo a los datos. si no a a clases completas, con esta clase, valga a redundancia lo podras hacer.
Para que ?, pues como te cuento en el ejemplo del video , para guardar el estado de una aplicacion cuando da error.
Lo que necesitas para este ejemplo es: 1 textbox, y 3 botones.
el codigo lo tienes a continuación del video. Miralo te vendra bien :).
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 |
Imports System.Runtime.Serialization.Formatters.Binary Public Class Form1 Public Lst As New List(Of DtoCliente) Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub <Serializable()> Partial Public Class DtoCliente Public Property Id As Integer Public Property Nombre As String Public Sub New() End Sub End Class Public id As Integer = 0 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click id += 1 Dim dto As New DtoCliente dto.Id = id dto.Nombre = Me.TextBox1.Text Me.TextBox1.Text = "" Lst.Add(dto) End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim ms As New IO.FileStream(My.Application.Info.DirectoryPath & "\DtoSave.dto", IO.FileMode.Create) Dim bn As New BinaryFormatter() bn.Serialize(ms, Lst) ms.Close() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim ms As New IO.FileStream(My.Application.Info.DirectoryPath & "\DtoSave.dto", IO.FileMode.Open) Dim bn As New BinaryFormatter() Lst = bn.Deserialize(ms) ms.Close() Dim z = "" End Sub End Class |
espero que te sirva un Saludo… Jose Ortiz “Souslmakers.com”