Edit History:Diff

Changes of OpenDlgとSaveDlg between Epoch and 2008/02/01 22:21:27 JST

• + added lines
• - deleted lines

Return to the edit history

- IFileOpen と IFileSave
- 
- 
- [[$$toc]]
- - →[[HSP3・サンプルスクリプト]]に戻る
- 
- ----
- 
- HSP3.1β3 XPsp2 で動作確認 (3.0a以降です。)~%
- ＸＰ専用ですね。~%
- 
- * スクリプト
- {{{
- ; <<<< HSP 3.1β3 サンプル >>>>
- ;
- ; OpenDlgとSaveDlg
- ;
- 
- onexit gosub *exit
- 
-         screen 0,640,400
- 	
- 	objsize 50,20
- 	pos 0 ,0 : button gosub "Open", *go1
- 	pos 50,0 : button gosub "Save", *go2
- 
- stop
- 
- *go1
- 	newcom OpenDlg,"SAFRCFileDlg.FileOpen"
- 	
- 	if OpenDlg("OpenFileOpenDlg"){
- 		mes OpenDlg("FileName")
- 	}
- 	delcom OpenDlg : OpenDlg=0
- return
- 
- *go2
- 	newcom SaveDlg,"SAFRCFileDlg.FileSave"
- 
- 	SaveDlg("FileName")="c:\\*.txt"
- 	SaveDlg("FileType")="テキストファイル(*.txt)"
- 	
- 	if SaveDlg("OpenFileSaveDlg"){
- 		mes SaveDlg("FileName")
- 	}
- 	delcom SaveDlg : SaveDlg=0
- return
- 
- *exit
- end
- 
- }}}
- * memo~%
- パスを取るだけ。~%
- XP専用で、あまり意味が無いけど。orz