Adding Multiple Items From One Listbox to Another VB.Net

Question

I am able to only move single items from one listbox to another with this code. I tried with both MultiSimple & MultiExtended SelectionMode.

How do I select multiple items and then move them?

Private Sub cmdAdd_Click(ByVal sender As System.Object, 
                         ByVal e As System.EventArgs
                        ) Handles cmdAdd.Click

        Dim i As Integer = Listbox1.SelectedIndex

        If i = -1 Then
            Exit Sub 'skip if no item is selected
        End If

        Listbox2.Items.Add(Listbox1.Items(i)) 
        Listbox1.Items.RemoveAt(i)

    End Sub

Tim Murphy · Accepted Answer · 2011-07-13 10:16:29Z

2

You need to use SelectedIndices or SelectedItems.

Private Sub cmdAdd_Click(ByVal sender As System.Object, 
                         ByVal e As System.EventArgs
                        ) Handles cmdAdd.Click

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

    For Each selectedItem In selectedItems

        Listbox2.Items.Add(selectedItem)
        Listbox1.Items.Remove(selectedItem)

    Next

End Sub

Note the use of a Linq query to get list of selected items as an array. Using an array is required to prevent "Collection changed" exceptions. You may need to add a reference to System.Linq.

edited Jul 13, 2011 at 10:16

answered Jul 12, 2011 at 13:34

Tim Murphy

4,9524 gold badges45 silver badges50 bronze badges

Sign up to request clarification or add additional context in comments.

7 Comments

User124726 Over a year ago

@ Tim Murphy - Thanks for the reply. I get this error when I use the above code - 'ToArray' is not a member of 'System.Windows.Forms.ListBox.SelectedObjectCollection'. I also added System.Linq as reference

Tim Murphy Over a year ago

Are you importing System.Linq? You can do it via the project or at the top of the code file: Imports System.Linq.

User124726 Over a year ago

@ Tim Murphy - yes, at the top of the code line I have mentioned Imports System.Linq

Tim Murphy Over a year ago

I've fixed the code. Sorry for the stuff around but I was answering last night on a PC without VS.

User124726 Over a year ago

@ Tim Murphy - Thanks Tim. Works beautifully!

|

Adam Zuckerman · Accepted Answer · 2014-03-16 22:46:48Z

0

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ComboBox1.Items.Add("SanDiego")
    ComboBox1.Items.Add("BeverlyHills")
    ComboBox1.Items.Add("Florida")
    ComboBox1.Items.Add("NewYork")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim s As String
    s = ComboBox1.SelectedItem

    ListBox1.Items.Add(s)
    ComboBox1.Items.Remove(s)
End Sub

edited Mar 16, 2014 at 22:46

Adam Zuckerman

1,6411 gold badge15 silver badges21 bronze badges

answered Mar 16, 2014 at 22:22

user3426959

11 bronze badge

1 Comment

Adam Zuckerman Over a year ago

Adding an explanation to your code will help the OP understand what you did and why.

Robert · Accepted Answer · 2019-01-23 16:50:51Z

0

Private Sub cmdAdd_Click(ByVal sender As System.Object, 
                     ByVal e As System.EventArgs
                    ) Handles cmdAdd.Click


For Each selectedItem In (From i In ListBox1.SelectedItems).Tolist()


    Listbox2.Items.Add(selectedItem)
    Listbox1.Items.Remove(selectedItem)

Next

End Sub

edited Jan 23, 2019 at 16:50

Robert

5,31843 gold badges70 silver badges115 bronze badges

answered Jan 23, 2019 at 16:31

Harsh Patel

1

Collectives™ on Stack Overflow

Adding Multiple Items From One Listbox to Another VB.Net

3 Answers 3

7 Comments

1 Comment

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

7 Comments

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Related