在列表框之間移動項目

Question

對不起，如果這已被回答之前，但我搜索該網站，找不到任何答案我的問題。

我可以在我的列表框之間移動選定的項目，但是如何從一個列表框中移動所有項目並將它們添加到另一個列表框中？如果可能的話，我想將它們追加到底部而不是替換另一個列表框中的項目。

我使用移動特定項目的編碼是

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

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

我不能回答我自己的一些原因，但許多感謝Heinzi問題，爲別人有同樣的問題，下面的代碼應該可以幫助您。

昏暗selectedItems =（從I在ListBox1.Items）.ToArray（）

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

Answer 1

可以使用相同的代碼，而是通過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