オブジェクトの複製・破棄(IClonable, IDisposable)

Module ClonableAndDisposable

    ' 参照型
    Class ReferencialTypeMusume

        Public Name As String

    End Class

    ' 値型
    Structure ValueTypeMusume

        Public Name As String

    End Structure

    ' アプリケーションのエントリーポイント
    Sub Main()

        ' 参照型の場合
        Dim r1 As New ReferencialTypeMusume(), r2 As New ReferencialTypeMusume()

        r1.Name = "加護亜依"
        r2.Name = "石川梨華"

        Console.WriteLine("r1.Name: {0}, r2.Name: {1}", r1.Name, r2.Name)

        ' 「参照」を代入
        r1 = r2

        r2.Name = "高橋愛"

        Console.WriteLine("r1.Name: {0}, r2.Name: {1}", r1.Name, r2.Name)


        ' 単なる改行
        Console.WriteLine()


        ' 値型の場合
        Dim v1 As New ValueTypeMusume(), v2 As New ValueTypeMusume()

        v1.Name = "加護亜依"
        v2.Name = "石川梨華"

        Console.WriteLine("v1.Name: {0}, v2.Name: {1}", v1.Name, v2.Name)

        ' 「値」を代入
        v1 = v2

        v2.Name = "高橋愛"

        Console.WriteLine("v1.Name: {0}, v2.Name: {1}", v1.Name, v2.Name)

    End Sub

End Module

Module ClonableAndDisposable

    ' 参照型
    Class ReferencialTypeMusume

        Public Name As String
        Public Age As Integer
        Public BloodType As String

    End Class

    ' アプリケーションのエントリーポイント
    Sub Main()

        ' インスタンスを生成
        Dim r1 As New ReferencialTypeMusume(), r2 As New ReferencialTypeMusume()

        ' インスタンスを初期化
        With r1

            .Name = "加護亜依"
            .Age = 15
            .BloodType = "AB"

        End With

        ' インスタンスのフィールドをコピー
        With r2

            .Name = r1.Name
            .Age = r1.Age
            .BloodType = r1.BloodType

        End With

    End Sub

End Module

Module ClonableAndDisposable

    ' 参照型
    Class ReferencialTypeMusume

        ' 様々なスコープを持つフィールド
        Public Name As String
        Protected Age As Integer
        Private BloodType As String

        ' コンストラクタ (初期化用)
        Public Sub New(ByVal name As String, ByVal age As Integer, ByVal bloodType As String)

            Me.Name = name
            Me.Age = age
            Me.BloodType = bloodType

        End Sub

        ' コンストラクタ (コピー用)
        Public Sub New(ByVal musume As ReferencialTypeMusume)

            Me.Name = musume.Name
            Me.Age = musume.Age
            Me.BloodType = musume.BloodType

        End Sub

        ' インスタンスの状態を表示するためのメソッド
        Public Overrides Function ToString() As String

            Return Me.Name + " " + Me.Age.ToString() + "歳, " + Me.BloodType + "型"

        End Function

    End Class

    ' アプリケーションのエントリーポイント
    Sub Main()

        ' 変数を宣言
        Dim r1, r2 As ReferencialTypeMusume

        ' インスタンスを生成
        r1 = New ReferencialTypeMusume("加護亜依", 15, "AB")

        ' インスタンスのコピーを生成
        r2 = New ReferencialTypeMusume(r1)

        ' 状態を表示
        Console.WriteLine("r1: {0}", r1)
        Console.WriteLine("r2: {0}", r2)

    End Sub

End Module

Option Strict On

Module ClonableAndDisposable

    ' Musumeから参照される型
    Class Group

        ' IClonableインターフェイスを実装
        Implements ICloneable

        ' 値型フィールド
        Public Name As String

        ' コンストラクタ
        Public Sub New(ByVal name As String)

            Me.Name = name

        End Sub

        ' 戻り値が型指定された公開されるClone()メソッド
        Public Function Clone() As Group

            Return DirectCast(Me.MemberwiseClone(), Group)

        End Function

        ' 非公開のClone()メソッド
        Private Function CloneMyself() As Object Implements ICloneable.Clone

            Return Me.Clone()

        End Function

    End Class


    ' コピー対象となるクラス
    Class Musume

        ' IClonableインターフェイスを実装
        Implements ICloneable

        ' 値型フィールド
        Public Name As String

        ' 参照型フィールド
        Public Belonging As Group

        ' コンストラクタ
        Public Sub New(ByVal name As String, ByVal belonging As Group)

            Me.Name = name
            Me.Belonging = belonging

        End Sub

        ' 戻り値が型指定された公開されるClone()メソッド
        Public Function Clone() As Musume

            Return DirectCast(Me.MemberwiseClone(), Musume)

        End Function

        ' 非公開のClone()メソッド
        Private Function CloneMyself() As Object Implements ICloneable.Clone

            Return Me.Clone()

        End Function

        ' インスタンスの状態を表示するためのメソッド
        Public Overrides Function ToString() As String

            If Me.Belonging Is Nothing Then

                Return Me.Name

            Else

                Return Me.Name + " (" + Me.Belonging.Name + ")"

            End If

        End Function

    End Class


    ' アプリケーションのエントリーポイント
    Sub Main()

        ' 所属グループ
        Dim g As New Group("モーニング娘。")

        ' 変数を宣言
        Dim m1, m2 As Musume

        ' インスタンスを生成
        m1 = New Musume("加護亜依", g)

        ' インスタンスの簡易コピーを生成
        m2 = m1.Clone
        m2.Name = "紺野あさ美"

        ' 状態を表示
        Console.WriteLine("m1: {0}", m1)
        Console.WriteLine("m2: {0}", m2)

        ' Belongingメンバの値を比較
        Console.WriteLine("m1.Belonging Is m2.Belonging: {0}", m1.Belonging Is m2.Belonging)

    End Sub

End Module

Class Musume


    ' 途中省略


    ' 戻り値が型指定された公開されるClone()メソッド
    Public Function Clone() As Musume

        ' インスタンスの簡易コピーを作成
        Dim inst As Musume = DirectCast(Me.MemberwiseClone(), Musume)

        ' 参照型フィールドであるBelongingフィールドのコピーを生成
        If Not Me.Belonging Is Nothing Then

            inst.Belonging = Me.Belonging.Clone()

        End If

        ' 生成されたコピーを返す
        Return inst

    End Function


    ' 途中省略


End Class