このプログラムは、ところどころLet's HSP!さんのサイトを参考にさせていただきました。
title"mmloadにどのような変数で指定すれば・・・?" #uselib "user32" #cfunc GetWindowLong "GetWindowLongA" int, int #func SetWindowLong "SetWindowLongA" int, int, int #uselib "shell32" #func DragAcceptFiles "DragAcceptFiles" int, int #func DragQueryFile "DragQueryFileA" int, int, int, int #func DragFinish "DragFinish" int #uselib "user32" #func WindowFromPoint "WindowFromPoint" int, int objsize 200,25 pos 0,53:chkbox "音声を流す",chk1 pos 0,79:chkbox "音声を流す",chk2 oncmd gosub *dropfiles, $233 : sdim filepath, 512 objsize 400 pos 200,53 :objsize 200 :listbox droplayfiles1,10, "" :hListbox01 = objinfo (stat, 2):DragAcceptFiles hListbox01, 1 DragAcceptFiles hListbox, 1 :objsize 40,23:pos 400,53:button "削除", *del_item pos 200,79 :objsize 200 :listbox droplayfiles2,10, "" :hListbox02 = objinfo (stat, 2):DragAcceptFiles hListbox02, 1 DragAcceptFiles hListbox, 1 :objsize 40,23:pos 400,79:button "削除", *del_item *main if chk1=1 :gosub *lchk1 if chk2=1 :gosub *lchk2 redraw 1:await 50:goto *main stop *lchk1 mmload hListbox01,1 mmplay 1 return *lchk2 mmload hListbox02,2 mmplay 2 return *del_item sendmsg hListbox, $188 : sendmsg hListbox, $182, stat return *dropfiles DragQueryFile wparam, 0, varptr (filepath), 512 DragFinish wparam WindowFromPoint ginfo (0), ginfo (1) if stat = hListbox01 :sendmsg hListbox01, $180, , filepath :return if stat = hListbox02 :sendmsg hListbox02, $180, , filepath :return return
そしてまた問題にぶち当たりました。私の検索力が無いのか、こればかりはググリましたが
だめでした。。。
音声ふぁいるをボックス(リストボックス)に直接ドロップしてチェックボックスを入れれば
自動的に再生されるプログラムを書きたかったのですが
★リストボックスにドロップできるファイルをメディアファイル一つだけにすることと、
★リストボックスにドロップされたファイルをmmloadで読み込むことが出来ません。
※そして出来ればリストボックスにドロップされたときにリストボックスに表示される文字列は
ファイルの場所まで詳細に表示すると音声ファイル名自体が隠れて見えなくなる恐れがあるので
表示されるのは「音声ファイル名.拡張子」だけにしたいです。
何方か教えてください。