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 = "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]