Guten Morgen,
ich hab hier gerade einen merkwürdigen Fehler. Folgendes Konstrukt:
Also der Code sollte selbsterklärend sein. In der Instanz von RandomClass wird die Referenz von ClassA und ClassB übergeben, eine lokale Kopie der Referenz erzeugt und anschließend hierin geschrieben.
Soweit zur Theorie. In der Praxis zeigt sich etwas ganz merkwürdiges: Während die erste MsgBox noch "abc" ausgibt, ist der Text der zweiten MsgBox = Nothing.
Hat irgendjemand nen Plan, warum das so ist?
ich hab hier gerade einen merkwürdigen Fehler. Folgendes Konstrukt:
Quellcode
- class Main()
- Sub Main_Sub()
- Dim a as ClassA = New ClassA
- Dim b as ClassB = New ClassB
- Dim c as RandomClass = New(a, b)
- MsgBox(a.Property)
- MsgBox(b.Property)
- End Sub
- end class
- Class RandomClass
- Private LocalClassReference1 As ClassA
- Private LocalClassReference2 As ClassB
- Sub New(ByRef Inst1 as ClassA, ByRef Inst2 as ClassB)
- LocalClassReference1 = Inst1
- LocalClassReference2 = Inst2
- LocalClassReference1.Property = "abc"
- LocalClassReference2.Property = "def"
- End Sub
- End Class
Also der Code sollte selbsterklärend sein. In der Instanz von RandomClass wird die Referenz von ClassA und ClassB übergeben, eine lokale Kopie der Referenz erzeugt und anschließend hierin geschrieben.
Soweit zur Theorie. In der Praxis zeigt sich etwas ganz merkwürdiges: Während die erste MsgBox noch "abc" ausgibt, ist der Text der zweiten MsgBox = Nothing.
Hat irgendjemand nen Plan, warum das so ist?