objects not behaving as distinct 1

[ChrisParks]

all

i am declaring two objects with diff names, lets say obj1 and obj2 equal to new ObjectTest objects

i first define all the characteristics of obj1 based on objecttest class characteristics

then i want to set obj2 = obj1 but subsequently manipulate the characteristics of obj2

when i do this, for example
set obj2.NumberValue = obj1.NumberValue - 1

assuming obj1.NumberValue = 20

it will then set obj2.NumberValue = 19. but it ALSO changes Obj1.NumberValue = 19 as well which i do not want. i want to maintaing obj1.numbervalue at 20

this makes no sense to me. why is it happening? and how can i avoid this?

thanks very much

-jared

 

[PHV]

set obj2 = obj1
So, you have only one instance of the ObjectTest object with 2 different names ...

To avoid this you have to instantiate obj1 and obj2 with the New keyword each.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[ChrisParks]

i have set obj1 and obj2 both equal to objecttest which is a class

so obj1 and ob2 should represent objects of class objecttest

so i do not think this solution applies? maybe i am missing somethin here

 

[PHV]

Why not posting your actual code ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[ChrisParks]

nothig much to it....

a class exists, Sec_MBS with a property, SecCounter

Public ThisMBS As new Sec_MBS
Public TempMBS As New Sec_MBS

ThisMBS.SecCounter = 20

Set TempMBS = ThisMBS

at this point tempmbs properties take on all the values of thismbs properties

tempmbs.seccounter is currently 20

tempmbs.seccounter = thismbs.seccounter - 1


here, both tempmbs.seccounter and thismbs.seccounter become 19

i want thismbs.seccounter to maintain its original value of 20

makes no sense to me

hope this helps you help me

thanks

 

[PHV]

Set TempMBS = ThisMBS
At this stage the previous instance of the Sec_MBS object referenced by TempMBS is destroyed and TempMBS now references the same instance as ThisMBS.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[ChrisParks]

how can i set one objects values equal to another without destroying the original?

 

[PHV]

Have you tried this ?
Set TempMBS = New ThisMBS

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[fumei]

Three cheers for PHV.

faq219-2884

Gerry
My paintings and sculpture