1

抱歉,如果之前已回答过此问题,但我搜索了该网站,但找不到任何可以回答我问题的内容。

我可以在我的列表框之间移动选定的项目,但是如何将所有项目从一个列表框中移动并将它们添加到另一个列表框中?如果可能的话,我想将它们附加到底部,而不是替换另一个列表框中的项目。

我用来移动特定项目的编码是

 Dim selectedItems = (From i In ListBox1.SelectedItems).ToArray()

    For Each selectedItem In selectedItems
        ListBox2.Items.Add(selectedItem)
        ListBox1.Items.Remove(selectedItem)
    Next

由于某种原因,我无法回答我自己的问题,但非常感谢 Heinzi,对于遇到同样问题的其他人,以下编码应该可以帮助您。

Dim selectedItems = (From i In ListBox1.Items).ToArray()

For Each selectedItem In selectedItems
    ListBox2.Items.Add(selectedItem)
    ListBox1.Items.Remove(selectedItem)
Next
4

2 回答 2

2

您可以使用相同的代码,但迭代 ListBox1.Items 而不是 ListBox1.SelectedItems:

Dim itemsToMove = ListBox1.Items.ToArray()  ' to make a copy of the list of items

For Each item In itemsToMove
    ListBox2.Items.Add(item)
    ListBox1.Items.Remove(item)
Next
于 2012-05-27T22:55:03.780 回答
0

试试这个移动所有项目 - 工作 100%

For Each item As String In ListBox1.Items
            ListBox2.Items.Add(item.ToString)
        Next
于 2021-01-09T16:56:31.933 回答