「名前を付けて保存」ダイアログ

FILE GETNAMEは,「ファイルを開く」ダイアログを表示してファイル名を取得しますが,ver 5.3.6の \Library\FileName.LIBに定義された外部関数GetSaveFileName$を利用すると,「名前を付けて保存」ダイアログを表示してファイル名を取得することができます。

使用例

100 DECLARE EXTERNAL FUNCTION GetSaveFileName$ 
110 PRINT GetSaveFileName$("CSVファイル","CSV","")
120 END
130 MERGE "FILENAME.LIB"

100行は識別名GetSaveFileName$を外部関数名として使うための宣言です。
130行のMERGE文はFILENAME.LIBを翻訳時にプログラムテキストの末尾に読み込む命令です。
GetSaveFileName$の引数は,順に,ファイル種別の説明の文字列,既定の拡張子,初期表示ディレクトリです。
既定の拡張子は,3文字以内に限ります。ピリオドは省いて指定します。

GetSaveFileName$関数は,Win32APIを用いて定義されています。
詳細は,FILENAME.LIBを開いて確認してください。
BASICプログラムで記述されているので,目的に応じ変更を加えて利用することも可能です。
<補足>利用者独自のライブラリを作成したときは,Libraryフォルダではなく,UserLibフォルダに入れてください。
    MERGE文は,Libraryフォルダより先にUserLibフォルダを検索します。


「はい」「いいえ」ダイアログ

 ver. 5.3.7の\Library\MSGBOX.LIBに定義された関数YesNoBox$関数を利用すると,メッセージを表示して「はい」,「いいえ」の選択を求めることができます。

使用例

10 DECLARE EXTERNAL FUNCTION YesNoBox$ 
20 SELECT CASE YesNoBox$("実行しますか")
30 CASE "Y"
40   PRINT "実行します"
50 CASE "N"
60   PRINT "実行を取りやめます"
70 END SELECT
80 END
90 MERGE "MSGBOX.LIB"


MSGBOX.LIBには,「中止(A)」,「再試行(R)」,「無視(I)」から選択させる関数AbortRetryBox$も定義されています。
これらの関数は,Win32APIのMessageBoxを利用して定義されているので,目的に応じて修正して使うことができます。


戻る

inserted by FC2 system