HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2006
1223
tree2箇所にドラッグ&ドロップ2解決


tree

リンク

2006/12/23(Sat) 10:42:09|NO.4347

少し前に 「ドラッグ&ドロップ ファイルの処理」の題名で教えて
いただきました。
その時は判ったつもりでしたが、その後判らないことがはっきりし
ましたので、また教えてください。
下のプログラムはKpanさんのD&Dの例文です。


; リストボックスにファイルをD&Dサンプルソース (by Kpan) #uselib "shell32" #func DragAcceptFiles "DragAcceptFiles" int, int #func DragQueryFile "DragQueryFileA" int, int, int, int #func DragFinish "DragFinish" int oncmd gosub *dropfiles, $233 sdim filepath, 512 objsize 400 listbox a, , "" hListbox = objinfo (stat, 2) DragAcceptFiles hListbox, 1 stop *dropfiles DragQueryFile wparam, 0, varptr (filepath), 512 DragFinish wparam sendmsg hListbox, $180, , filepath return


ここで、listbox b を更に作り、listbox a と listbox b の
listboxを2つにします。
2つのlistboxにドラッグドロップを各々して、その結果、どちらに
何がドロップされたかの結果を知ることが出来ないで困りました。

どのようにこのプログラムを修正すれば、それが出来るのでしょう
か。
ご指導のほどよろしくお願いいたします。



この記事に返信する


Kpan

リンク

2006/12/23(Sat) 15:38:24|NO.4351

WindowFromPoint関数で振り分けるとよろし。
サンプル追加しておきましたので参照してください。
http://lhsp.s206.xrea.com/hsp_object4.html#5



tree

リンク

2006/12/23(Sat) 15:54:48|NO.4352

早くもKpanさんのじきじきのご返答を頂き心から御礼申し上げます。
よく判り、勉強になりました。



ONION software Copyright 1997-2023(c) All rights reserved.