# 物件的复制

Posted by Daniel Lin on April 28, 1998 at 23:21:50:

小弟曾于一书中读及

: 建立具体物件方法三
: DIM OX2 As Object
: set OX2 = OX1 '将OX1的具体物件指定给OX2
: 此一方法的意义是把某一个物件变数的具体物件复制给另一个物件变数

小弟曾尝试利用此法来复制物件, 但似乎OX2 指到的具体物件OX1为相同
一个, 若我改了 OX1 的属性1, 则OX2的属性也跟着被更改了, 如下例
DIM OX2 As Object
DIM OX1 As New Class1
OX1.Property1 = "Here"
Set OX2 = OX1
Debug.Print OX2.Property1
OX1.Propery1 = "There"
Debug.Print OX2.Property1

印出之结果为
Here
There

问题: 此法是否无法具体物件复制给另一个物件变数呢? 有甚么方式可作
到呢?
(如让上例印出之结果皆为 Here)

补充, 我的重点是OX2 是OX1的复制,而不是指向同一具体物件.
即OX1的所有Properties的值 皆复制至OX2的Properties. 之后, OX1有任
何Property之改变皆不会影响OX2的Property.
记得Smalltalk 有 物件Copy的Method, 可作到我上面的要求. 不知VB是
否有此能力.

Follow Ups:

- 没有好方法 小吴 00:39:24 4/29/98 (0)