On Sep 5, 2006, at 2:47 PM, Tim Jones wrote:
Hi Folks,
Does anyone have details on implementing a multi-row DND from one
list box to another? I've just discovered that the default method
in the User's Guide is for a single row only. Odd that there's no
error when you try to drag multiple selected rows (only the first
is added as a the DragItem.Text).
One approach is to write the selected rows into a delimited string
and assign the string to drag.Text, in the DragRow event for example:
dim s as string
dim limit as integer = me.ListCount - 1
dim i, count as integer
For i = 0 to limit
If me.Selected(i) then
count = count + 1
If count > me.SelCount then Exit
s = s + me.List(i) + chr(13)
End
Next
drag.Text = s
return true
Best,
Jack
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
