VB.NET对象克隆的应用法则

VB.NET编程语言的应用范围非常广泛，比如在数据库的连接方面，对于Excle的操作，对于界面的操作等等方面。我们在这里会为大家介绍一下有关VB.NET对象克隆的实现方法，并对其实现的功能进行一个初步的掌握。

创新互联建站坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都网站制作、成都网站建设、外贸营销网站建设、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的泾源网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！

在3DMAX里面，做好一个物体（父物体）以后，可以选择Edit菜单中的Clone，下面有三中选项：Copy（生成一个同模样的子物体，两者的操作互不影响），Instance（父子互动，父物体的操作同样影响子物体，子物体也一样），还有一个Reference（暂不考虑）。

在VB.NET，同样会碰到这样的问题。创建一个复杂对象（可能有很多种不同的数据类型）的实例，进行了一系列操作之后，想让一个中间变量或几个（另外的实例）保存它的状态，我们一般采取逐个变量赋值，有时候会写很长的代码：）这实际上就是上述的Copy问题。而对于Instance，很简单,新建一个实例，指向一下就可以了：

 
 
   
  
  Dim objA As New CResume   
  
  ‘Cresume是一个自定义的记录简历信息的类

然后进行初始化，比如：

 
 
   
  
  objA.Name=”AAA”    
  
  objA.Address=”Shanghai，
China”    
  
  ……    
  
  Dim objB As New CResume 
‘新建一个实例    
  
  objB＝objA

这样的话，objB跟objA有相同状态，值得注意的是objB改变一个Name，比如：

 
 
   
  
  objB.Name=”BBB”

而实际上，objA的Name也变为“BBB”，理由很简单。它们指向同一块内存空间。#t#

下面我们重点讨论对象的Clone问题，即Copy以后的各个对象互不影响，关键是如何采用简单的方法解决我们的问题，MemoryStream和BinFormatter配合一下可以很简单的把VB.NET对象克隆。

MemoryStream，我以前提到过，是支持存储区为内存的流。

BinFormatter，主要以二进制形式序列化和反序列化对象。

主要思路：

先用BinFormatter的Serialize方法，把对象存储在MemoryStream流中，（操作跟其他Stream一样），然后Deserialize反序列化，得到一个流式的数据，转化为原来对象的类型就可以了。是不是很简单？呵呵。看一下代码再说：

CResume类的代码：

 
 
   
  
  Imports System.IO    
  
     
  
  Imports System.Runtime.
Serialization.Formatters    
  
     
  
  < Serializable()> Public 
Class CResume     
  
  ‘注意类前面加上Serializable()
属性，否则不可以序列化    
  
  Dim m_Name As String '姓名    
  
  Dim m_Address As String '地址    
  
  Public Property Address() As String    
  
  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 = "Shanghai,China"   
  
  Resume2 = Resume1.Clone()    
  
  Resume1.Name = "BBB"   
  
  Resume1.Address = "Beijing,China"   
  
  Debug.WriteLine(Resume1.Name) 
‘依然是AAA    
  
  Debug.WriteLine(Resume1.Address)

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

文章题目：VB.NET对象克隆的应用法则
浏览路径：http://www.shufengxianlan.com/qtweb/news19/156969.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容