Klassenmodule

[GoodOld1]

Hallo!
Ich habe folgendes Problem: Ich habe meine eigene Klasse definiert, man nehme an, sie heißt im folgenden Test1!
Ich hab nun folgendes programmiert:

Dim a as new Test1
Dim b as new Test1
Set a = b

Wenn ich nun eine Eigenschaft von a ändere, ändert sich auch die Eigenschaft von b. Wenn ich eine Eigenhchaft von b geändert habe, ändert sich die selbe Eigenschaft von a!! Ich versteh das nicht! Ich hab schon etwas von vererbung gehört, aber wie kann ich denn die Werte der einen Klasse der anderen geben, ohne das die Klassen abhängig sind?

ich bitte um hilfe...Das Problem bereitet mir beim Programmieren große Schwierigkeiten..

 

[Alex F.]

in dem du eine Clone Methode implementierst in der eine Kopie deiner Klasse erstellt wird. Momentan setzt du den Zeiger von a auf die Klasse vom b
BSP:

Public Function Clone as Test1
  dim x as test1
  set x = new test1
  x.Eigenschaft1 = test1.Eigenschaft1 
  ...
  set Clone = x

Grüsse bb

PS: dim x as new tes1 ist auf dauer langsamer als

Dim x as test1
Set x = new tes1