Kann ich erzwingen, dass ein Objekt in einem Aufruf in .NET als "ByVal" (als Kopie) übergeben wird?

Question

In dem VB.NET-Code unten möchte ich drei Personen zu einer Liste von Personen hinzufügen. Ich dachte, ich könnte das gleiche Personenobjekt immer und immer wieder benutzen und einfach den Namen vor dem nächsten Add-Call ändern. Ich hatte gehofft, dass jeder Anruf das Objekt kopieren und diese Kopie zur Liste hinzufügen sollte ... Aber ich habe am Ende eine Liste von drei "Kim". Es scheint, dass sich die Listenelemente auf dasselbe Objekt beziehen.

Class Person 
    Public Name As String 
End Class 

Sub Foo() 
    Dim Persons as New List(Of Person) 
    Dim aPerson As New Person 

    aPerson.Name = "John" 
    Persons.Add(aPerson) 
    aPerson.Name = "Emma" 
    Persons.Add(aPerson) 
    aPerson.Name = "Kim" 
    Persons.Add(aPerson) 
End Sub 

Kann ich zwingen, dass aPerson in jedem Add-Anruf kopiert wird? Oder muss ich separate Objekte für John, Emma und Kim erstellen?

Answer 1

Was Sie tun, ist keine gute Übung, da Sie keine Klasse auf diese Weise verwenden sollten.

Wenn Ihre Namen aus einer Quelle wie einer Liste stammen, können Sie eine For Each Schleife verwenden.

Dim MyNames As New List(Of String) 
MyNames.Add("John") 
MyNames.Add("Emma") 
MyNames.Add("Kim") 
For Each person_name As String In MyNames 
    Dim aPerson As New Person 
    aPerson.Name = person_name 
    Persons.Add(aPerson) 
Next 

Dieser Ansatz könnte sehr praktisch sein, wenn die Daten beispielsweise aus einer Datei, SQL-Anfrage oder JSON stammen.

Sonst würden Sie gerade haben:

Dim Persons as New List(Of Person) 
Dim aPerson As New Person 
Dim bPerson As New Person 
Dim cPerson As New Person 
aPerson.Name = "John" 
Persons.Add(aPerson) 
bPerson.Name = "Emma" 
Persons.Add(bPerson) 
cPerson.Name = "Kim" 
Persons.Add(cPerson)