Copy of an object without reference?

[patrickdrd]

Hi everyone!

I need to get a copy of an object,
I do not want Set obj2 = obj1 because the new obj2
contains the reference of obj1 and changes are reflected to obj1.

I do not want to have the changes reflected to obj1.

Thanks in advance!

 

[Scoty]

Is it a control object. An control object can be "Load"-ed in reference to the original object (obj1) with out reflecting the changes to the original object (obj1). Otherwise if the object is com compliant (activex) you should be able dim Obj2 as New My.Object. Get it? I don't know if this helps but if you had some more specific information we may be able to help you.

thanks
Scoty :

 

[patrickdrd]

my question is very similar to this one:

http://www.experts-exchange.com/Pro...anguages/Visual_Basic/Q_20176331.html#6440868

 

[Scoty]

Could you not
Set Obj2 = New Obj1
This would produce a new Object rather than a reference to the original object.

 

[patrickdrd]

Yes, but I need all the data that obj1 holds...

 

[Scoty]

Ok
How 'bout

Set Obj2 = New Obj1

Obj2.Property1 = Obj1.Property1
Obj2.Property2 = Obj1.Property2
Obj2.Property3 = Obj1.Property3
...

I know it seems kind of low brow programming but it will work.

 

[patrickdrd]

Actually the object I'm referring to is a collection

 

[Scoty]

So what about
Dim I as Long
Set Obj2 = New Obj1
For I = 0 to Obj1.Count - 1 '0 Based
Obj2.Item(I) = Obj1.Item(I)
Next I

Am I missing something?

 

[Sheco]

Maybe you could get jiggy with RtlMoveMemory and ObjPtr

 

[patrickdrd]

I did it that way finally,
I was looking for something 'automatic' like copymemory,
but that's not possible as these guys mention:

http://www.xtremevbtalk.com/showthread.php?t=190092