VBA　Fox編

【1】リストビューウィンドウにファイルをドロップする

関連ファイルを登録するのにダイアログボックスを使う方法もありますが、 リストビューウィンドウ（LV_関連）にファイルをドロップすることも可能にしました。 それにはOLEDragDropイベントでファイル名を取得する必要があります。

Private Sub LV_関連_OLEDragDrop(Data As MSComctlLib.DataObject, _
Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
'事前にOLEDroopModeプロパティを1にすること
　Dim i As Long
　　For i = 1 To Data.Files.Count
　　　Debug.Print Data.Files(i)
　　Next i
End Sub