VB：将所有文本从一个列表框传输到另一个列表框

Question

首先感谢您阅读。其次，我希望button1将所有文本从listbox1传输到listbox2。因此，当单击button1时，listbox1中的所有项都将转移到listbox2。这就是我所拥有的，再次感谢：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button4.Click

   ListBox2.Items.Add(ListBox1.SelectedItems)

End Sub

使用VB2012

Answer 1

将所有项目从一个列表框复制到另一个列表框（ListBox1 - ＆gt; ListBox2）：

ListBox2.Items.AddRange(ListBox1.Items)

Answer 2

试试这个：

    ListBox2.Items.Clear()  //This is to avoid duplication if button was clicked more than once

     For i = 0 To ListBox1.Items.Count - 1
        ListBox2.Items.Add(ListBox1.Items(i).ToString)
    Next

Answer 3

您遍历第一个Listbox个所选项目，并在第二个ListBox中添加每个项目，例如

For Each Item As String In ListBox1.SelectedItems
  ListBox2.Items.Add(Item)
Next