#author("2018-06-16T21:48:09+09:00","","")


**ＮＯ＿５０８＿ＥＤＩＴ [#t1f9e9bc]

dialogを使って聞くように変更~
しつこいかもｗ~

 #include "hspda.as"
 
 #define WM_COMMAND 0x0111
 onexit goto *prog_exit
 // WM_COMMAND を捕まえる
 oncmd gosub *lbl_WM_COMMAND, WM_COMMAND
 
 
 objsize 640,480
 sdim _4note,65000
 notesel _4note
 _4note="#define _001script v001=0:\n#define _002label v002=0:\na\nb\nc"
 stat4listbox=0
 listbox stat4listbox,100,_4note
 ID4listbox=stat
 gosub *show_sub_B_window
 gsel 2,-1
 gosub *show_sub_A_window
 gsel 1,-1
 gosub *show_cmd_window
 stop
 *show_cmd_window
 	screen 10,320,300
 	objsize 80,20
 	button "vsave A",*do_vsave_A
 	button "vload A",*do_vload_A
 	pos 80,0
 	button "vsave B",*do_vsave_B
 	button "vload B",*do_vload_B
 	pos 160,0
 	button "vsave C",*do_vsave_C
 	button "vload C",*do_vload_C
 	pos 240,0
 	button "vsave D",*do_vsave_D
 	button "vload D",*do_vload_D
 	stat4input_FN="tmp.txt"
 	pos 0,40
 	input stat4input_FN,320,40
 	ID4input_FN=stat
 	button "notesave",*do_notesave
 	button "noteload",*do_noteload
 	stop
 *do_notesave
 	dialog ""+stat4input_FN+"にnotesaveしてもいいですか？",2
 	if stat==7:dialog ""+stat4input_FN+"にnotesaveしませんでした",0:stop
 	notesave stat4input_FN
 	dialog ""+stat4input_FN+"にnotesaveしました",0
 	stop
 *do_noteload
 	dialog ""+stat4input_FN+"をnoteloadしてもいいですか？",2
 	if stat==7:dialog ""+stat4input_FN+"をnoteloadしませんでした",0:stop
 	noteload stat4input_FN
 	gsel 0
 	objprm ID4listbox,_4note
 	dialog ""+stat4input_FN+"をnoteloadしました",0
 	stop
 *do_vsave_A
 	dialog "Aにvsaveしてもいいですか？",2
 	if stat==7:dialog "Aにvsaveしませんでした",0:stop
 	vsave "v_tmp_A.dat"
 	dialog "Aにvsaveしました",0
 	stop
 *do_vsave_B
 	dialog "Bにvsaveしてもいいですか？",2
 	if stat==7:dialog "Bにvsaveしませんでした",0:stop
 	vsave "v_tmp_B.dat"
 	dialog "Bにvsaveしました",0
 	stop
 *do_vsave_C
 	dialog "Cにvsaveしてもいいですか？",2
 	if stat==7:dialog "Cにvsaveしませんでした",0:stop
 	vsave "v_tmp_C.dat"
 	dialog "Cにvsaveしました",0
 	stop
 *do_vsave_D
 	dialog "Dにvsaveしてもいいですか？",2
 	if stat==7:dialog "Cにvsaveしませんでした",0:stop
 	vsave "v_tmp_D.dat"
 	dialog "Dにvsaveしました",0
 	stop
 *do_vload_A	
 	dialog "Aをvloadしてもいいですか？",2
 	if stat==7:dialog "Aをvloadしませんでした",0:stop
 	vload "v_tmp_A.dat"
 	gsel 0
 	objprm ID4listbox,_4note
 	dialog "Aをvloadしました",0
 	stop
 *do_vload_B
 	dialog "Bをvloadしてもいいですか？",2
 	if stat==7:dialog "Bをvloadしませんでした",0:stop
 	vload "v_tmp_B.dat"
 	gsel 0
 	objprm ID4listbox,_4note
 	dialog "Bをvloadしました",0
 	stop
 *do_vload_C
 	dialog "Cをvloadしてもいいですか？",2
 	if stat==7:dialog "Cをvloadしませんでした",0:stop
 	vload "v_tmp_C.dat"
 	gsel 0
 	objprm ID4listbox,_4note
 	dialog "Cをvloadしました",0
 	stop
 *do_vload_D
 	dialog "Dをvloadしてもいいですか？",2
 	if stat==7:dialog "Dをvloadしませんでした",0:stop
 	vload "v_tmp_D.dat"
 	gsel 0
 	objprm ID4listbox,_4note
 	dialog "Dをvloadしました",0
 	stop
 *show_sub_A_window
 	screen 1,300,300
 	stat4input_A=""
 	input stat4input_A,300,40
 	button "編集",*tmp_edit
 	button "script",*tmp_l
 	button "label",*tmp_ll
 	return
 *show_sub_B_window
 	screen 2,300,80
 	stat4input=""
 	input stat4input,300,40
     objsize 100,20
     pos 0,40
     button "上書き",*set_lb_str
     pos 100,40
     button "挿入",*insert_lb_str
     pos 100,60
     button "末尾挿入",*insert_last_lb_str
     pos 0,60
     button "キャンセル",*lb_cansel
     return
 *tmp_edit
 	stop
 *tmp_l
 	gsel 1,-1
 	gsel 2,2
 	title "編集：script"
 	stop
 *tmp_ll
 	gsel 1,-1
 	gsel 2,2
 	title "編集：label"
 	stop
 *lbl_WM_COMMAND
     if ( ( ( wparam >> 16 ) & 0xFFFF ) == 0x0002 ) {
       ;  dialog "リストの " + stat4listbox + " 番目の要素が選択されました。",0
       gsel 2
       tmp=""
       if stat4listbox!=-1{
       noteget tmp,stat4listbox
       objprm 0,tmp
       gsel 1,2
      }
     }
     return
 *lb_cansel
 	gsel 2,-1
 	stop
 *set_lb_str
 	noteadd stat4input,stat4listbox,1
 	gsel 0
 	objprm ID4listbox,_4note
 	gsel 2,-1
 	stop
 *insert_lb_str
 	noteadd stat4input,stat4listbox,0
 	gsel 0
 	objprm ID4listbox,_4note
 	gsel 2,-1
 	stop
 *insert_last_lb_str
 	noteadd stat4input,-1,0
 	gsel 0
 	objprm ID4listbox,_4note
 	gsel 2,-1
 	stop
 *prog_exit
 	dialog "プログラムを終了しますか？",2
 	if stat==6:end