Drag and Drop between ListViews

[lifeson]

How do I drag and drop items between 2 listview controls?

I can drop the selected item into a text box but not into the listview


I want to drag from lvwEntitlements and drop the item onto lvwApplied.

I think this gets the item text from the lvwEntitlements (dragMode is set to automatic)

[VBA]Private Sub lvwEntitlements_ItemClick(ByVal Item As MSComctlLib.ListItem)
Set MyDataObj = New DataObject
MyDataObj.SetText Item

End Sub[/VBA]

and this is the closest I could find to drop the item
(dropmode is set to manual)
[VBA]Private Sub lvwApplied_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Data.GetText

End Sub[/VBA]

[lifeson]

This seems to work with no need to create a data object

[VBA]Private Sub lvwApplied_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
With lvwApplied
.ListItems.Add , , lvwEntitlements.SelectedItem.Text
End With

End Sub[/VBA]

[lifeson]

This seems to work, but it doesnt remove the item from the original list

[VBA]Private Sub lvwApplied_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
With lvwApplied
.ListItems.Add , , lvwEntitlements.SelectedItem.Text
End With

End Sub[/VBA]

[georgiboy]

Have you got an example file to play with?

[lifeson]

here you go

[georgiboy]

Is this any help

http://www.vbaexpress.com/forum/showthread.php?t=454


It may just be me but i could not see any listviews in the demo file

[lifeson]

sorry the list views are on a user form.

[lifeson]

Is this any help

http://www.vbaexpress.com/forum/showthread.php?t=454


It may just be me but i could not see any listviews in the demo file

That was the thread i looked at first of all which started me to look at data objects, but I got lost

[GTO]

Greetings lifeson,

Reference:

This seems to work, but it doesnt remove the item from the original list...

This seems to work:

[vba]Private Sub lvwApplied_OLEDragDrop(Data As MSComctlLib.DataObject, _
Effect As Long, Button As Integer, _
Shift As Integer, _
X As Single, _
Y As Single)

Dim cnt As Long

With lvwApplied
cnt = .ListItems.Count + 1
.SmallIcons = UserForm1.imgSnooker
.ListItems.Add , , lvwEntitlements.SelectedItem.Text, , cnt
End With

lvwEntitlements.ListItems.Remove lvwEntitlements.SelectedItem.Index

End Sub[/vba]

Hope this helps ,

Mark

PS - Just a thought, but for those of us with less than stellar screen size, a line-break or two keeps the vba window from pushing out the edge and makes it a lot easier to read.

[lifeson]

Mark

PS - Just a thought, but for those of us with less than stellar screen size, a line-break or two keeps the vba window from pushing out the edge and makes it a lot easier to read.

Thanks for the code though Mark.

[GTO]

You bet and happy to help.

I have never used a list view ctrl, but liked the "looks".