module1.vb

编程之道VB.NETt程序设计入门-589M.zip

Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters

<Serializable()> Public Class AnotherClass
    Public sAnotherClass As String
End Class

<Serializable()> Public Class SerializeClass
    Public age As Integer
    Public name As String
    Public height As Single
    Public aClass As New AnotherClass()

    Public Sub Serialize()
        Dim s As IO.Stream
        s = File.Open("serial.dat", FileMode.Create)
        Dim b As New Binary.BinaryFormatter()

        b.Serialize(s, Me)
        s.Close()
    End Sub

    Public Function DeSerialize() As SerializeClass
        Dim s As IO.Stream
        s = File.Open("serial.dat", FileMode.Open)
        Dim b As New Binary.BinaryFormatter()

        Dim tempClass As SerializeClass
        tempClass = b.Deserialize(s)
        age = tempClass.age
        name = tempClass.name
        height = tempClass.height
        aClass = tempClass.aClass

        Return tempClass
    End Function
End Class

Module Module1

    Sub Main()
        Dim serializeClass1 As New SerializeClass()
        Dim serializeClass2 As SerializeClass

        With serializeClass1
            .age = 50
            .name = "Bill Clinton"
            .height = 1.9
            .aClass.sAnotherClass = "Another anotherClass"
            .Serialize()
        End With
        serializeClass2 = serializeClass1.DeSerialize()

        With serializeClass2
            Console.WriteLine("Age: " & .age)
            Console.WriteLine("Name: " & .name)
            Console.WriteLine("Height: " & .height)
            Console.WriteLine("AnotherClass: " & .aClass.sAnotherClass)
        End With

        Console.ReadLine()
    End Sub

End Module