test7.hsp

sample\llmod3\test7.hsp » Plain Format

	;=================================================================================
	;
	;llmod3を使った各moduleの使用例
	;
	;=================================================================================
	#include "llmod3/llmod3.hsp"
	#include "llmod3/dragdrop.hsp"
	cls

	button "終了",*x14

	alloc buf,1024*64	;ドラッグ&ドロップされたファイル名を入れる変数
	dim a,8
	dd_accept buf,a

	mes "このウィンドウにファイルをドラッグ&ドロップしてください"
*@
	wait 1
	if a {
		color 255,255,255
		boxf 0,40,winx,winy
		color
		pos 0,40
		mes "ドラッグ&ドロップされたファイル数:"+a
		mes "ドラッグ&ドロップされたファイル位置 x:"+a.1+" y:"+a.2
		mes "ドラッグ&ドロップされたウィンドウID :"+a.3
		mes buf
		a=0		; aをリセットしてください
	}
	goto *@b

*x14
	end