Get

        Return m_Address

    End Get

    Set(ByVal NewAddress As String)

        m_Address = NewAddress

    End Set

  End Property

Public Property Name() As String

    Get

        Return m_Name

    End Get

    Set(ByVal NewName As String)

        m_Name = NewName

    End Set

  End Property

  Public Function Clone() As CResume

    Dim BF As New Binary.BinaryFormatter()

    Dim MS As New MemoryStream()

    BF.Serialize(MS, Me)

    MS.Position = 0

    Return (CType(BF.Deserialize(MS), CResume))

  End Function

End Class

　　在Form里面可以这样调用

  Dim Resume1 As New CResume()

  Dim Resume2 As New CResume()

    Resume1.Name = "AAA"

    Resume1.Address = "office:smarttags" />Shanghai,China"

    Resume2 = Resume1.Clone()

    Resume1.Name = "BBB"

    Resume1.Address = "Beijing,China"

    Debug.WriteLine(Resume1.Name)     ‘依然是AAA

    Debug.WriteLine(Resume1.Address)    

　　总结：主要调用了VB.NET的流和序列化技术，使得对象的克隆免去了繁琐的读写操作，也简化了代码。

上一页  [1] [2] 

【责编:Youping】