AlbertoD
(AlbertoD)
1
I started playing with: Desktop/DragAndDrop/ListBoxesDragAndDrop
changed that to allow multiple columns with
Me.cell(Me.LastIndex,-1) = OrigListBox.cell(mDragRow,-1)
that way I don’t need to copy each cell.
I did some tests and RowTag and CellTag are not copied, so I tried to find an easy way to do it (like -1 for column) but was not able to do it.
Some my question is: to copy CellTag from a dragged row from listbox1 to listbox2, the only way to do it is copy each value?
A little loop will do the trick.
[code]for i as Integer = 0 to (OrigListBox.ColumnCount - 1)
lbDestination.CellTag(mDragRow, i) = OrigListBox.CellTag(mDragRow, i)
next[/code]
{written in the post editor disclaimer}
AlbertoD
(AlbertoD)
3
Thank you Tim, that’s what I have. Just wanted to make sure I was not missing some trick.
For i As Integer = 0 To Me.ColumnCount - 1
Me.CellTag(Me.LastIndex,i) = OrigListBox.CellTag(mDragRow,i)
Next
BTW, I think I would start using ( ) when I have “To (Me.ColumnCount - 1)”. It may be the same, but it is more clear when I read it. Thanks.