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


HSPTV!掲示板


未解決 解決 停止 削除要請

2018
1212
窓辺ゆっくり超簡易エクスプローラーを作っているのですが3未解決


窓辺ゆっくり

リンク

2018/12/12(Wed) 13:31:25|NO.85986

HSPで超簡易エクスプローラーを作っているのですが、ファイル一覧を作ることはできても、ファイルを開けません
何がいけないのでしょうか,.,,,(´・ω・`)

*main

screen 0,800,700

dirlist tes ,"*.*"

test=2
pos 185,150
objsize 500,250
listbox test,100,tes
objsize 100,30
pos 560,510
button"実行",*ex
pos 180,110
color 0

stop
*ex


notesel test
noteget test,1

exec test

stop



この記事に返信する


ham

リンク

2018/12/12(Wed) 14:20:55|NO.85987


notesel test noteget test,1 exec test

の部分がちょっと間違ってますね。
「dirlist tes ,"*.*"」でtesにファイル一覧を代入しているので
notesel testではなくnotesel tesです。

「listbox test,100,tes」でtestはリスト内で選択している行を表すのに使用しているので
noteget test,1はnoteget filename,testなどにしたほうがいいかと思います。

最後にexec testも同様にexec filename,16にすると良いでしょう。
,16を付けたのは関連付けされているプログラムで開くためです。


最終的にこうなりますね。


notesel tes noteget filename,test exec filename,16



窓辺ゆっくり

リンク

2018/12/12(Wed) 15:06:06|NO.85988

hamさん、ご回答ありがとうございました!

おかげで簡易エクスプローラーが完成しました(*- -)(*_ _)ペコリ(ありがとうございました)



ゆうやん

リンク

2018/12/12(Wed) 18:07:23|NO.85989

解決チェックされていないようですが、一応回答します。
ウィンドウサイズが大きすぎるので、小さくすればいいと思います。

#include "hsp3utf.as" *main screen 0,500,370 dirlist tes ,"*.*" test=2 pos 0,0 objsize 500,250 listbox test,100,tes objsize 100,30 pos 400,340 button"実行",*ex pos 180,110 color 0 stop *ex notesel tes noteget filename,test exec filename,16 stop



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