VB Forum / Win API / August 2007

Hi All,

I use two Listviews. I want to drag and drop items from Listview1 to
Listview2.

I use following code:

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x
As Single, y As Single)

  If Button = vbLeftButton Then
     ListView1.OLEDragMode = vbOLEDragAutomatic
     ListView1.OLEDrag
  End If

End Sub

Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x
As Single, y As Single)

  ListView1.OLEDragMode = vbOLEDragManual

End Sub

Private Sub ListView2_OLEDragDrop(Data As MSComctlLib.DataObject,
Effect As Long, Button As Integer, Shift As Integer, x As Single, y As
Single)

  Dim itmX As ListItem
  Dim cnt As Integer
  Dim numSelected As Long

  numSelected = SendMessage(ListView1.hwnd, _
                            LVM_GETSELECTEDCOUNT, _
                            0&, _
                            ByVal 0&)

  For cnt = numSelected To 1 Step -1
     Set itmX = ListView2.ListItems.Add(, , Data.GetData(vbCFText), ,
4)
     itmX.SubItems(1) = ListView1.ListItems(cnt).ListSubItems(1).Text
     itmX.SubItems(2) = ListView1.ListItems(cnt).ListSubItems(2).Text
     ListView1.ListItems.Remove (cnt)
  Next

End Sub

The problem is that the code doesn't know which items were selected.
So I get all the same items at Listview2

Marco