ListViewでドラッグ&ドロップするには？

UME 2006-01-31 20:36:07 No: 129968

はじめまして。

ListViewで指定したフォルダのファイル一覧を取得し、
取得したファイルをドラッグ&ドロップしたいと思っています。
ListView1のプロパティのMultiSelectをTrueに設定し、
ListView1のプロパティのDragModeをvbManualに設定して

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
ListView1.Drag vbBeginDrag
End Sub

としたのですが、これだとListView1全体がドラッグされてしまいます。
ListView1で取得したファイルをドラッグ&ドロップしたいのですが、
どのようにすればいいでしょうか？お願い致します。

魔界の仮面弁士 2006-01-31 21:37:57 No: 129969

ファイルのドラッグ&ドロップなら、DragDrop系ではなく、OLEDragDrop系の
機能を使った方が良いかと。

とりあえず、OLEDragMode を自動設定にしておいたうえで、
OLEStartDragイベントにて
    AllowedEffects = vbDropEffectCopy
    Data.SetData , vbCFFiles
    Data.Files.Add "C:\a.exe"
    Data.Files.Add "C:\a.jpg"
って感じにすれば、ドロップ時にファイルがコピーされます。