「ウインドウにファイルをドラックドロップする方法」の編集履歴（バックアップ）一覧はこちら

「ウインドウにファイルをドラックドロップする方法」(2010/10/21 (木) 10:56:59) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

メインウインドウのプロパティ、拡張属性から、ドラックドロップを許可する、をちぇっく。

ウインドウのイベントコードの中から、DropFilesをコーディング。

#asciiart(blockquote){
Sub MainWnd_DropFiles(hDrop As HDROP)
    	Dim FileName[MAX_PATH-1] As Byte
	Dim fpath As String

    	'FileName配列にファイルパスを1つ格納
    	DragQueryFile(hDrop,0,FileName,MAX_PATH)

    	'使用後はドラッグ＆ドロップに関する情報を解放
    	DragFinish(hDrop)

	fpath=MakeStr(FileName)
	msgbox hMainWnd,fpath,"File Path"
End Sub
}

複数のファイルを受け取る場合も同様。
複数行の場合、引数に-1を指定して行数を得てから、すべての行を得る。
#asciiart(blockquote){
	num=DragQueryFile(hDrop,-1,Fname,MAX_PATH)

	for i=0 to num
		DragQueryFile(hDrop,i,Fname,MAX_PATH)
	next i
}