シリアル化　逆シリアル化

<Serializable()> _
Public Class myTreeNode
    Inherits TreeNode

    Public SampleClass1 As New SampleClass(100)

    '逆シリアル化に必要な既定のコンストラクタ
    Public Sub New()
        MyBase.New()
    End Sub

    '逆シリアル化に必要な暗黙のコンストラクタ
    '下の引数を受けるコンストラクタが基本クラスにない
    Private Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
        MyBase.New(info, context)
    End Sub

    'GetObjectData()メソッドの実装
    '↓「インターフェイス'ISerializable'は、
    '   このクラスによって実装されていません」というビルドエラー
    Public Sub GetObjectData(ByVal info As System.Runtime.Serialization.SerializationInfo, _
                             ByVal context As System.Runtime.Serialization.StreamingContext) _
                             Implements ISerializable.GetObjectData
    End Sub

End Class


<Serializable()> _
Public Class SampleClass
    Implements ISerializable

    Public myNumber As Integer = 0

    '逆シリアル化に必要な既定のコンストラクタ
    Public Sub New()
    End Sub

    Public Sub New(ByVal myNumber As Integer)
        Me.myNumber = myNumber
    End Sub

    '逆シリアル化に必要な暗黙のコンストラクタ
    Private Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
        MyClass.myNumber = info.GetInt32("number")
    End Sub

    'GetObjectData()メソッドの実装
    Public Sub GetObjectData(ByVal info As System.Runtime.Serialization.SerializationInfo, _
                             ByVal context As System.Runtime.Serialization.StreamingContext) _
                             Implements ISerializable.GetObjectData
        info.AddValue("number", MyClass.myNumber)
    End Sub
End Class