Moving multiple items between two ListBoxes

[Dany P. Wu]

Hi everyone,

One of my Windows forms contain two listbox controls, with Add and Remove
buttons between them.

The idea is to allow users to select multiple items from one ListBox, click
the Add button, and the selected items will move to the second ListBox.

I've been trying to use the ListBox.Selecte dObjectCollecti on with no
success. It sounds like the logical thing to use but I can't seem to find
any methods/properties to use in this case. Is there something else I should
be using?

Any comments/suggestions would be greatly appreciated.

Cheers,
Dany.

[Richard Myers]

Hi Dany.

Dim shiftObjects() as Object
shiftObjects = Me.lstMyList.Se lectedObjects

Dim i as integer
for i = 0 to shiftObjects.le ngth-1
Me.lstMyList.Re move(shiftObjec ts(i))
Me.lstAddToList .Add(shiftObjec ts(i))
next i

Note this just shifts items across but does nothing to persist these
changes.

hth
Richard

"Dany P. Wu" <da**@nospam.qu icksilver.net.n z> wrote in message
news:10******** *******@drone1-svc-skyt.qsi.net.nz ...

Hi everyone,

One of my Windows forms contain two listbox controls, with Add and Remove
buttons between them.

The idea is to allow users to select multiple items from one ListBox, click the Add button, and the selected items will move to the second ListBox.

I've been trying to use the ListBox.Selecte dObjectCollecti on with no
success. It sounds like the logical thing to use but I can't seem to find
any methods/properties to use in this case. Is there something else I should be using?

Any comments/suggestions would be greatly appreciated.

Cheers,
Dany.

[Cablewizard]

The SelectedObjectC ollection is what is returned by SelectedItems as opposed to
an actual property.

You have a few options here to do this.
Basically you need to make a copy of the selected items and add these to the
destination, then through an iterative process remove the selected items from
the source listbox.
A general flow would be to get the SelectedItems collection into another
collection.
You could then add them individually or use AddRange to add the contents of this
collection to the destination listbox.
Then step through each item in the copy of the collection and use .Items.Remove
to remove each item from the source collection.

However, making a copy of the selected items collection is fairly important.
If you try to use For Each to step through items and remove them at the same
time, this will not work. Because you are removing items from the same list you
are iterating over.
Or you could do a For index on each item in the source listbox and check its
GetSelected(ind ex) property. Then handle them appropriately. If you go backwards
through the list then you could add items to the other and remove items from the
source in one pass.

The actual implementation of the above is up to you as there are a number of
ways to do the same thing.

Gerald

"Dany P. Wu" <da**@nospam.qu icksilver.net.n z> wrote in message
news:10******** *******@drone1-svc-skyt.qsi.net.nz ...

Hi everyone,

One of my Windows forms contain two listbox controls, with Add and Remove
buttons between them.

The idea is to allow users to select multiple items from one ListBox, click
the Add button, and the selected items will move to the second ListBox.

I've been trying to use the ListBox.Selecte dObjectCollecti on with no
success. It sounds like the logical thing to use but I can't seem to find
any methods/properties to use in this case. Is there something else I should
be using?

Any comments/suggestions would be greatly appreciated.

Cheers,
Dany.

[Dany P. Wu]

"Richard Myers" <ri************ *********@basd. co.nz> wrote in message
news:eW******** ******@TK2MSFTN GP11.phx.gbl...

Hi Dany.
Dim shiftObjects() as Object
shiftObjects = Me.lstMyList.Se lectedObjects
Dim i as integer
for i = 0 to shiftObjects.le ngth-1
Me.lstMyList.Re move(shiftObjec ts(i))
Me.lstAddToList .Add(shiftObjec ts(i))
next i
Note this just shifts items across but does nothing to persist these
changes.
hth
Richard

Thanks for the suggestions guys. I used ListBox.Selecte dObjectCollecti on to
hold the SelectedItems, and just iterate to move it. Just realised that a
Collection is automatically re-indexed after any addition/deletion - I learn
something new every other day :o)

Dim items as ListBox.Selecte dObjectColletio n

items = lb1.SelectedIte ms
While items.Count > 0
lb2.Items.Add(i tems(0))
lb1.Items.Remov e(items(0))
End While

The code above seems to do the trick for me.

Cheers,
Dany.