leer datos de un objeto archivos

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 :).

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

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”