drag/drop from listbox to listbox, but multiextended mode

[Bernie Yaeger]

I've been able to get a pair of listboxes to pass data from one to the other
successfully, but only one selected item at a time. If I change the listbox
mode of both the multiextended, it only passes the item (point) from which
the drag begins. Here's some of the relevant code:
Dim Pt As New Point(e.X, e.Y)

Dim Index As Integer

' Determines which item was selected.

frombox3e = sender

Index = frombox3e.IndexFromPoint(Pt)

' Starts a drag-and-drop operation with that item.

If Index >= 0 Then

frombox3e.DoDragDrop(frombox3e.Items(Index), DragDropEffects.Move)



End If

How can this code be modified to accommodate the selection of all the items
selected, whether by single, multisimple of multiextended mode?

Tx for any help.

Bernie Yaeger

 

[Guest]

Instead of using 'point' to get the item, try the ListBox's 'SelectedIndex'
instead.

 

[Bernie Yaeger]

Hi Crouchie,

Interesting idea - tx; I'll try it.

Bernie