Drag & Drop

[Mc Brain]

Let's say I have a ListView with items in it, and I set it OLEDragMode to automatic. If I drag any of this items into a simple exe which code's is:

Option Explicit
 
Private Sub Form_Load()
   MsgBox Command$
   End
End Sub

I get no message at all. How do I get the dragged item to actually drop a command line on this exe... for starters.

The idea is to have the full path in the CommandLine and when it's dropped, the file would be copied into that location (Desktop, Folder, whatever)

[Mc Brain]

Anyone?

[MartinLiss]

Why can't you do it directly from the app that contains the listview?

[dglienna]

He wants to drop a filename from a list onto an .exe to have it open. (ie mp3 onto player)

[Mc Brain]

I want to drop the selected files (which are not files obviously) in my app's listview into anything. For example, if I drop them into the desktop, I want Windows to copy these files into that location.

[RobDog888]

You need to change your listview to Manual dragdrop. When its automatic the listview does not designate text as the source data.

You can test this out by dragging a text file from explorer to your exe and drop it on to it. The path and filename will popup. With the
listview being in automatic DND you can not specify the item to pass as the source data.

Set your listview as manual DND and then write the procedures to initiate the DND and set the data source as the selected listview item's text property.

[Mc Brain]

You need to change your listview to Manual dragdrop. When its automatic the listview does not designate text as the source data.

You can test this out by dragging a text file from explorer to your exe and drop it on to it. The path and filename will popup. With the
listview being in automatic DND you can not specify the item to pass as the source data.

Set your listview as manual DND and then write the procedures to initiate the DND and set the data source as the selected listview item's text property.

I figured that much already... but I don't know how to set the data so that it can be interpreted correctly by Windows. I tried to:

Data.Files.Add "C:\test.txt"

but didn't work.

[RobDog888]

You probably need to use these three procedures...

Private Sub ListView1_OLEStartDrag(Data As MSComctlLib.DataObject, AllowedEffects As Long)
 
End Sub
 
Private Sub ListView1_OLESetData(Data As MSComctlLib.DataObject, DataFormat As Integer)
 
End Sub
 
Private Sub ListView1_OLECompleteDrag(Effect As Long)
 
End Sub

[Mc Brain]

You probably need to use these three procedures...

Private Sub ListView1_OLEStartDrag(Data As MSComctlLib.DataObject, AllowedEffects As Long)
 
End Sub
 
Private Sub ListView1_OLESetData(Data As MSComctlLib.DataObject, DataFormat As Integer)
 
End Sub
 
Private Sub ListView1_OLECompleteDrag(Effect As Long)
 
End Sub

Ok... but how should I populate the Data object? The line I tried did not work.

[RobDog888]

This is what I tried but I think there is still more needed?

'Using Automatic drop mode and setting the drag data.
Private Sub ListView1_OLEStartDrag(Data As MSComctlLib.DataObject, AllowedEffects As Long)
    Data.Clear
    AllowedEffects = vbDropEffectCopy
    Data.SetData ListView1.SelectedItem.Text, vbCFText
End Sub
 
Private Sub ListView1_OLESetData(Data As MSComctlLib.DataObject, DataFormat As Integer)
    Data.SetData ListView1.SelectedItem.Text, vbCFText
End Sub
 
Private Sub ListView1_OLECompleteDrag(Effect As Long)
    Effect = vbDropEffectCopy '?
End Sub

Using the Manuladrop mode requires more code, but automatic says it can allow you to set the data manually but it still isnt working.

[Mc Brain]

This is what I tried but I think there is still more needed?

'Using Automatic drop mode and setting the drag data.
Private Sub ListView1_OLEStartDrag(Data As MSComctlLib.DataObject, AllowedEffects As Long)
    Data.Clear
    AllowedEffects = vbDropEffectCopy
    Data.SetData ListView1.SelectedItem.Text, vbCFText
End Sub
 
Private Sub ListView1_OLESetData(Data As MSComctlLib.DataObject, DataFormat As Integer)
    Data.SetData ListView1.SelectedItem.Text, vbCFText
End Sub
 
Private Sub ListView1_OLECompleteDrag(Effect As Long)
    Effect = vbDropEffectCopy '?
End Sub

Using the Manuladrop mode requires more code, but automatic says it can allow you to set the data manually but it still isnt working.

I cannot drop it anywhere the "forbidden" icon is shown everywhere. How can I change it to automatic drop. ListView's OLEDropMode can be none or manual.

[RobDog888]

I'm not too sure since I havent used DND this way. My code example was just illustrate some of the stuff needed, but is only half the
issue. Its not complete or functional.