sample_dialog.hsp

sample\iron\sample_dialog.hsp » Plain Format

;============================================================
;  iron_dialog.hsp サンプル: モダンファイルダイアログ
;
;  Vista 以降の IFileOpenDialog / IFileSaveDialog COM インターフェースを
;  使って、Windows 標準のモダン UI でファイル選択ダイアログを出す。
;
;  hsp3net (hsp3_64.exe) で実行
;============================================================

#include "hsp3_net_64.as"
#include "iron_dialog.hsp"

	mes "iron_dialog サンプル — モダンファイルダイアログ"
	mes ""
	mes "[1] 開くダイアログ"
	mes "[2] 保存ダイアログ"
	mes "[3] フォルダ選択ダイアログ"
	mes "[ESC] 終了"
	mes ""

	onkey gosub *on_key
	stop

*on_key
	if iparam = 27 : end                ; ESC

	if iparam = '1' {
		dialog_open "ファイルを選択してください", ""
		if stat = 0 {
			mes "選択: " + refstr
		} else : if stat = 1 {
			mes "(キャンセル)"
		} else {
			mes "エラー: stat=" + stat
		}
	}

	if iparam = '2' {
		dialog_save "保存先を指定してください", "", "txt"
		if stat = 0 {
			mes "保存先: " + refstr
		} else : if stat = 1 {
			mes "(キャンセル)"
		} else {
			mes "エラー: stat=" + stat
		}
	}

	if iparam = '3' {
		dialog_pickfolder "フォルダを選択してください"
		if stat = 0 {
			mes "選択フォルダ: " + refstr
		} else : if stat = 1 {
			mes "(キャンセル)"
		} else {
			mes "エラー: stat=" + stat
		}
	}
	return