llmod3

test1.hsp
#include "llmod3/llmod3.hsp" #include "llmod3/msgdlg.hsp" #include "llmod3/winver.hsp" #include "llmod3/about.hsp" msgdlg "今日はここで終了しますか？","プログラムの終了",3,5 if stat=6 : dialog "はい が選択されました" if stat=7 : dialog "いいえ が選択されました" if stat=2 : dialog "ｷｬﾝｾﾙ
sample\llmod3\test1.hsp - 2010/02/01

test2.hsp
#include "llmod3/llmod3.hsp" #include "llmod3/img.hsp" #include "llmod3/treebox.hsp" cls objsize 200,20 style=1|2|4|$20 |$1000 styleについてはtreebox.hsp参照 treebox 300,200,style 変数tree_idにtreeboxのIDが入る tree_id=stat (HSPのボタンなどのIDとは違う意味を持つ) 消去するときは _clrobj
sample\llmod3\test2.hsp - 2010/02/01

test3.hsp
#include "llmod3/llmod3.hsp" #include "llmod3/multiopen.hsp" s=dir_cur buf_size=1024*4 info_size=128*4 alloc buf,buf_size ﾌｧｲﾙ名がいくつ入るか分からないので十分なｻｲｽﾞを確保しておく alloc info,info_size info=dir_exe buf="複数のﾌｧｲﾙを開く -test title- デフォルトフォルダを "+info+" に設定"
sample\llmod3\test3.hsp - 2010/02/01

test4.hsp
#include "llmod3/llmod3.hsp" #include "llmod3/progbox.hsp" #include "llmod3/trackbox.hsp" #include "llmod3/udbtn.hsp" #include "llmod3/obj.hsp" cls progbox 300,40 : prog_id=stat progbox 300,40 : prog_id.1=stat trackbox 300,40,$100 : trck_id=stat
sample\llmod3\test4.hsp - 2010/02/01

test5.hsp
#include "llmod3/llmod3.hsp" #include "llmod3/console.hsp" sdim s,1024 cls console console_color $2B putz "HSPからコンソールへ出力\n何か入力してENTERを押してください\n" console_color $F gets s console_end mes "入力文字="+s button "終了",*x12 stop *x12 end
sample\llmod3\test5.hsp - 2010/02/01

test6.hsp
#include "llmod3/llmod3.hsp" #include "llmod3/ime.hsp" cls alloc linebuf,1024 alloc buf,1024*32 : buf="へんかんしわすれ\nﾊﾝｶｸﾓｼﾞ\n1234\nakai" mes "変換したい行にカーソルを移動させて行変換を押してください" mesbox buf,ginfo_winx,ginfo_winy-120,1 mb_id=0 imeinit ime,mb_id objsize 100,24
sample\llmod3\test6.hsp - 2010/02/01

test7.hsp
#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
sample\llmod3\test7.hsp - 2010/02/01

test8.hsp
#include "llmod3/llmod3.hsp" #include "llmod3/input.hsp" cls button "終了",*x15 mes "方向キーでマウスカーソルを移動できます" mes "SHIFTボタンを押すとマウスの左ボタンを押したことになります" *@ movx=0 : movy=0 getkey a,37 : if a : movx- ←キー getkey a,38 : if a : movy- ↑キー getkey a,39 : if a : movx+
sample\llmod3\test8.hsp - 2010/02/01

test9.hsp
#include "llmod3/llmod3.hsp" #include "llmod3/img.hsp" dialog "exe",16 if stat = 0 : end fname=refstr get_icon hicon,fname,-1 もっているアイコンの数を取得 n=stat i=0 x=0:y=0 get_icon hicon,fname,i 大きいアイコン取得 draw_icon hicon,x,y,1 (x,y)に描画 get_icon hicon,fname,i,1
sample\llmod3\test9.hsp - 2010/02/01