VB.net 同一类的单独列表相互复制

Question

这个例子显示了我的问题。我正在使用 VB.net 2010

Public Class Form1

    Public Class BonoType
        Public name As String
    End Class

    Private tory As New List(Of BonoType)
    Private tory1 As New List(Of BonoType)   

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim gg As New BonoType
        gg.name = "Boopsy"
        tory.Add(gg)
        gg = New BonoType
        gg.name = "Dipsy"
        tory.Add(gg)

        tory1 = tory
        Label1.Text = tory1(0).name
        Label2.Text = tory1(1).name     
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        tory(1).name = "Goose"
        Label1.Text = tory1(0).name
        Label2.Text = tory1(1).name
        TextBox1.Text = tory(1).name
    End Sub
End Class

发生的情况是“Goose”不仅存储在 tory(1) 中，而且还存储在 tory1(1) 中，我该如何阻止这种情况。

Answer 1

我相信你的问题就在这里，

   tory1 = tory

你将 tory1 设置为 tory。遵循你想要完成的事情有点困难，但在我看来，它们实际上是捆绑在一起的。您可能需要考虑

 var thisTory = new tory
 Label1.Text = thisTory(0).name
 Label2.Text = tory1(1).name

Answer 2

我认为问题在于，使用 tory1=tory，您只是创建了对原始对象的引用。您需要创建一个新对象。

即，在 VB 中：

Dim tory as New List(of String);
Dim tory2 as List(of String)

然后，当您要复制 tory2:

tory2 = New List(of String)(tory)

c# 时：

List<String> tory = new List<String>();
List<String> tory2;

tory2 = new List<String>(tory);