VB中对象的如何实现赋值

Question

在你的对象里添加一个克隆自己的方法，比如叫Clone(x as Class1),在这个方法里面就可以存取自己的私有属性。Clone的大致写法就是
  一、生成一个类实例  set x = new class1
  二、把自己的所有属性复制一份到x里
还有一种方法就是不要用Class1类型传递参数，而用变体型Variant传递。这样就可以用拷贝内存块的方法复制一编对象了。

Answer 1

    注意对象本身是不存在“按值”传递的，即使申明ByVal，也只是在调用过程前自动调用一次Set，然后将其内容传递到过程。    如果要复制一个对象，类似TreeView控件的事件内的Node参数的话，正如你所说，需要将其内容复制到一个New对象。    实现这样的意图一般确实是写一个Public或Friend方法Clone（或Copy）.    对于私有数据，你可以把他们全部放在Type类型中，然后使用CopyMemory一次性拷贝。参见：
http://www.csdn.net/expert/TopicView.asp?id=2336