ListBox.AddRange

[pvbangera]

Hi all,

I want to move selected items from one ListBox to the other. Like

ListBox2.AddRange(ListBox1.Items)

will move all items from ListBox1 to ListBox2. Similarly, I want to move only selected (multiple selection) items from ListBox1 to ListBox2.

Well, I would like to mention that unfortunately

ListBox2.AddRange(ListBox1.SelectedItems)

is not working.

Pls guide.

Regards,

Prakash

[kylek]

Whats the error that you are getting?

Instead of what you have, try using

ListBox2.AddRange(ListBox1.ObjectCollection)

and

ListBox2.AddRange(ListBox1.SelectedObjectCollection)

See if that fixes your problem

[DigitalHand]

Private Sub btnMove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMove.Click

Dim i As Integer
For i = 0 To ListBox1.SelectedIndices.Count - 1

ListBox2.Items.Add(ListBox1.Items(ListBox1.SelectedIndices(0)))

ListBox1.Items.Remove(ListBox1.Items(ListBox1.SelectedIndices(0)))

Next
End Sub

[pvbangera]

hi all,

writing code in loop was always easy. thats an orthodox vb6 way to do that. when addrange and removerange methods are given, why not utilise the stuff?

and kylek, ObjectCollection and SelectedObjectCollection is not working. i tried it earlier also. It gives me error that " 'ObjectCollection' is a type in 'System.Windows.Forms.ListBox' and cannot be used as an expression"

any further ideas pls??

regards,

prakash

[Pirate]

Play around with this code , it's 99 % done with little glitch , though , it might give you a clue .

Try
 
            For i As Integer = 0 To Me.ListBox1.Items.Count
                Me.ListBox2.Items.Add(Me.ListBox1.SelectedItems.Item(i))
                Me.ListBox1.Items.Remove(Me.ListBox1.SelectedItems.Item(i))
 
            Next
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

[dynamic_sysop]

just use an arraylist , one easy step ...

Dim lbCol As New ListBox.SelectedObjectCollection(ListBox1)
        Dim arr As New ArrayList()
        arr.AddRange(lbCol)
        ListBox2.Items.AddRange(arr.ToArray)

[dynamic_sysop]

i'm really cooking with gas today , here ya go

Dim lbCol As New ListBox.SelectedObjectCollection(ListBox1)
        ListBox2.Items.AddRange(ArrayList.Adapter(lbCol).ToArray)

[pvbangera]

thanx dynamic_sysop

its working. wot about removing the multi-selected items?? meanwhile i am removing it using loop as .RemoveRange method is not available. any other trick??

actually i am preparing a form having 2 ListBoxes between which items are selected and removed.

any help??

regards,

prakash