Mega Code Archive

 

Categories / VB.Net / File Directory

 

Serializable Person Object

Imports System.IO Imports System.Runtime.Serialization.Formatters.Binary Imports System.Runtime.Serialization.Formatters.Soap Public Class MainClass     Public Shared Sub Main()         Dim Bob As New SerializablePerson("Bob", 34, 5.25)         Dim fs As New FileStream("c:\bob.dat", FileMode.Create)         Dim f As System.Runtime.Serialization.IFormatter         f = New SoapFormatter()         'f = New BinaryFormatter()         f.Serialize(fs, Bob)         fs.Close()         Bob = Nothing         fs = New FileStream("c:\bob.dat", FileMode.Open)         Bob = CType(f.Deserialize(fs), SerializablePerson)         System.Console.WriteLine(Bob.Name)         fs.Close()     End Sub End Class <Serializable()> Public Class SerializablePerson     Public Name As String     Public Age As Integer     Public Height As Integer     Public Sub New()     End Sub     Public Sub New(ByVal Name As String, ByVal Age As String, _       ByVal Height As String)         Me.Name = Name         Me.Age = Age         Me.Height = Height     End Sub End Class