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"
って感じにすれば、ドロップ時にファイルがコピーされます。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加