llmod3
Path : sample\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 - 2014/09/19
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 - 2014/09/19
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 - 2014/09/19
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 - 2014/09/19
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 - 2014/09/19
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 - 2014/09/19
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 - 2014/09/19
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 - 2014/09/19
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 - 2014/09/19