２６．ファイルをListBoxにドラッグドロップしてフルパスを取得方法
＜ 使用用途 ＞
ズバリ、圧縮ソフトでよく使われます。
今回のサンプルソースをダウンロードする方は下記の「ダウンロード」をＰＵＳＨ！
＝＞ ダウンロード ・・・ 下に書いてあるサンプルソースと同じです
＜ 説明 ＞
ＬｉｓｔＢｏｘが持っているOLEDragDrop関数を使います。
< ＳＡＭＰＬＥ ＞
’フォームにListBoxを貼りつけた状態です。
'ListBoxのプロパティ、OLEDropModeを１−手動に変更してください
Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, _
Button As Integer, Shift As Integer, X As Single, Y As Single)
If Data.GetFormat(vbCFFiles) Then
For Each nFile In Data.Files
List1.AddItem nFile
Next
End If
End Sub