INFprcMsg

INF_Framework は ONnoji さん作成のフリーのライブラリです。
フォームに便利な機能を追加してくれます。

ここでは INF_Framework が適用されたフォームの便利機能を、
できるだけ簡単に利用できるように解説していきたいと思っています（？、頑張ります）。

メッセージボックス

更新日：2025年4月27日

INF_Framework にはメッセージボックスを表示するためのプロシージャが準備されていて
次の３つを使って利用することができます。

１：INFprcMsgPause( &icon, &title, &msg )	ポーズ：一時停止
２：INFprcMsgOKCancel( &icon, &title, &msg, &ans )	ＯＫ／キャンセル：応答取得
３：INFprcMsgYesNo( &icon, &title, &msg, &ans )	はい／いいえ：応答取得

すべてのINF_Framework 共通　（注）

　　（注）モダンINF_Framework、クラシックINF_Framework、NULL INF_Framework

桐のコマンド、メッセージボックスは次のようになっています。　　

メッセージボックス　<タイトル>，\

　<表示文字列>，\

　アイコン = i｜?｜!｜E｜，\

　ボタン指定 = 1｜2｜3｜4｜5｜6，\

　制御文字展開 = しない｜する，\

　<整数型の変数名>

ボタン指定 = 1｜2｜3｜4｜5｜6
　メッセージボックス上に配置する、ボタンの組み合わせを番号で指定します（計算式）。
　このパラメータを省略すると、[OK]ボタンだけが配置されます。

指定値	配置するボタン	肯定時の戻値	否定時の戻値	[×] or [Esc]
1	[OK]のみ	1	―	1
2	[OK]と[キャンセル]	1	2	2
3	[中止]、[再試行]、[無視]	―	3 , 4 , 5	なし：使用不可
4	[はい]、[いいえ]、[キャンセル]	6	7 , 2	2
5	[はい]、[いいえ]	6	7	7
6	[再試行]、[キャンセル]	―	4 , 2	2

たくさんの設定がありますが実際の利用では
１，２，５のボタン指定でほとんど事足りるのではないかと思われます。

そしてメッセージボックスのボタン指定、１，２，５に対応する INF_Framework の手続きが以下の３つになります。

用意されている手続き	配置するボタン	肯定時の戻値	否定時の戻値	[×] or [Esc]
INFprcMsgPause( &icon, &title, &msg )	[OK]のみ	―	―	―
INFprcMsgOKCancel( &icon, &title, &msg, &ans )	[OK]と[キャンセル]	1	0	0
INFprcMsgYesNo( &icon, &title, &msg, &ans )	[はい]、[いいえ]	1	0	0

-----

それでは、メッセージボックスのボタン指定、１，２，５とそれに対応した INF_Framework での表示を確認してみましょう。

※ NULL INF_Frameworkで次の様にコマンドボタンを配置して表示してみました。

○ ボタン指定１、INFprcMsgPause( &icon, &title, &msg )　　--------------------------------------------------

ソースコード

<< メッセージボックス　ボタン指定１ >>
※ここでは戻り値を表示させるために "&ans" や "確認"コマンドを設定しています（[OK] だけなので通常は不要ですね）。

101		手続き定義開始　cmdボタン指定１Click( )
102		変数宣言　自動，文字列｛ &title, &msg ｝
103		変数宣言　自動，整数｛ &ans ｝
104
105		&title = "cmdボタン指定１Click( )"
		＊メッセージボックスを表示させた手続き名をタイトルにしておくと後々便利です。
106		&msg =　　　　　"メッセージボックスはいろいろな場面で使われる"
107		&msg = &msg + "\n便利なコマンドです。"
108		&msg = &msg + "\n"
109		&msg = &msg + "\nほとんどの場合ではボタン指定１，２，５で "
110		&msg = &msg + "\n対応できるのではないかと思われます。"
111		&msg = &msg + "\n"
112		&msg = &msg + "\nただ標準化という視点で見るとメッセージボックスは"
113		&msg = &msg + "\nボタン指定での戻り値がバラバラなのが気になります。"
114		&msg = &msg + "\n"
115		&msg = &msg + "\nそこで INF_Framework では戻り値を標準化した"
116		&msg = &msg + "\nメッセージボックスを使うことができます。"
117		&msg = &msg + "\n"
118		&msg = &msg + "\nこのメッセージボックスはボタン指定 = 1 です。"
119		メッセージボックス　&title, &msg,アイコン = i , ボタン指定 = 1 , 制御文字展開 = する , &ans
120
121		確認　"[ＯＫ]ボタンを押しました：戻り値は " + #str(&ans) ＋ " です。"
122
123		手続き定義終了

<< INFprcMsgPause( &icon, &title, &msg ) >>

1101		手続き定義開始　cmdINFボタン指定１Click( )
1102		変数宣言　自動，文字列｛ &icon, &title, &msg ｝
1103
1104		&title = "cmdINFボタン指定１Click( )"
1105		&msg =　　　　　"メッセージボックスはいろいろな場面で使われる"
1106		&msg = &msg + "\n便利なコマンドです。"
1107		&msg = &msg + "\n"
1108		&msg = &msg + "\nほとんどの場合ではボタン指定１，２，５で "
1109		&msg = &msg + "\n対応できるのではないかと思われます。"
1110		&msg = &msg + "\n"
1111		&msg = &msg + "\nただ標準化という視点で見ると"
1112		&msg = &msg + "\nボタン指定での戻り値がバラバラなのが気になります。"
1113		&msg = &msg + "\n"
1114		&msg = &msg + "\nそこで INF_Framework では戻り値を標準化した"
1115		&msg = &msg + "\nメッセージボックスを使うことができます。"
1116		&msg = &msg + "\n"
1117		&msg = &msg + "\nプロシージャ INFprcMsgPause を実行しました。"
1118		&icon = "i"　　　　　　　/* !：警告 , ?：問い合わせ , i：情報 , E：エラー */
1119		手続き実行　INFprcMsgPause( &icon, &title, &msg )
1120
1121		確認　"[ＯＫ]ボタンを押しました"
1122
1123		手続き定義終了

○ ボタン指定2、INFprcMsgOKCancel( &icon, &title, &msg, &ans )　　--------------------------------------

ソースコード

<< メッセージボックス　ボタン指定2 >>

201		手続き定義開始　cmdボタン指定２Click( )
202		変数宣言　自動，文字列｛ &title = "cmdボタン指定２Click( )", &msg ｝
203		変数宣言　自動，整数｛ &ans ｝
204
205		&msg =　　　　　"メッセージボックスはいろいろな場面で使われる"
206		&msg = &msg + "\n便利なコマンドです。"
207		&msg = &msg + "\n"
208		&msg = &msg + "\nほとんどの場合ではボタン指定１，２，５で "
209		&msg = &msg + "\n対応できるのではないかと思われます。"
210		&msg = &msg + "\n"
211		&msg = &msg + "\nただ標準化という視点で見るとメッセージボックスは"
212		&msg = &msg + "\nボタン指定での戻り値がバラバラなのが気になります。"
213		&msg = &msg + "\n"
214		&msg = &msg + "\nそこで INF_Framework では戻り値を標準化した"
215		&msg = &msg + "\nメッセージボックスを使うことができます。"
216		&msg = &msg + "\n"
217		&msg = &msg + "\nこのメッセージボックスはボタン指定 = 2 です。"
218		メッセージボックス　&title, &msg,アイコン = i , ボタン指定 = 2 , 制御文字展開 = する , &ans
219
220		if ( &ans = 1 )
221		確認　"[ＯＫ]ボタンを押しました：戻り値は " + #str(&ans) ＋ " です。"
222		else
223		確認　"[キャンセル]ボタンを押しました：戻り値は " + #str(&ans) ＋ " です。"
224		end
225
226		手続き定義終了

<< INFprcMsgOKCancel( &icon, &title, &msg, &ans ) >>

2201		手続き定義開始　cmdINFボタン指定２Click( )
2202		変数宣言　自動，文字列｛ &icon, &title = "cmdINFボタン指定２Click( )", &msg ｝
2203		変数宣言　自動，整数｛ &ans ｝
2204
2205		&msg =　　　　　"メッセージボックスはいろいろな場面で使われる"
2206		&msg = &msg + "\n便利なコマンドです。"
2207		&msg = &msg + "\n"
2208		&msg = &msg + "\nほとんどの場合ではボタン指定１，２，５で "
2209		&msg = &msg + "\n対応できるのではないかと思われます。"
2210		&msg = &msg + "\n"
2211		&msg = &msg + "\nただ標準化という視点で見ると"
2212		&msg = &msg + "\nボタン指定での戻り値がバラバラなのが気になります。"
2213		&msg = &msg + "\n"
2214		&msg = &msg + "\nそこで INF_Framework では戻り値を標準化した"
2215		&msg = &msg + "\nメッセージボックスを使うことができます。"
2216		&msg = &msg + "\n"
2217		&msg = &msg + "\nプロシージャ INFprcMsgOKCancel を実行しました。"
2218		&icon = "i"　　　　　　　/* !：警告 , ?：問い合わせ , i：情報 , E：エラー */
2219		手続き実行　INFprcMsgOKCancel( &icon, &title, &msg, &ans )
2220
2221		if ( &ans = 1 )
2222		確認　"[ＯＫ]ボタンを押しました：戻り値は " + #str(&ans) ＋ " です。"
2223		else
2224		確認　"[キャンセル]ボタンを押しました：戻り値は " + #str(&ans) ＋ " です。"
2225		end
2226
2227		手続き定義終了

○ ボタン指定5、INFprcMsgYesNo( &icon, &title, &msg, &ans )　　-----------------------------------------

ソースコード

<< メッセージボックス　ボタン指定5 >>

501		手続き定義開始　cmdボタン指定５Click( )
502		変数宣言　自動，文字列｛ &title = "cmdボタン指定５Click( )", &msg ｝
503		変数宣言　自動，整数｛ &ans ｝
504
505		&msg =　　　　　　"メッセージボックスはいろいろな場面で使われる"
506		&msg = &msg + 　"\n便利なコマンドです。"
507		&msg = &msg + "\n\nほとんどの場合ではボタン指定１，２，５で "
508		&msg = &msg + 　"\n対応できるのではないかと思われます。"
509		&msg = &msg + "\n\nただ標準化という視点で見るとメッセージボックスは"
510		&msg = &msg + 　"\nボタン指定での戻り値がバラバラなのが気になります。"
511		&msg = &msg + "\n\nそこで INF_Framework では戻り値を標準化した"
512		&msg = &msg + 　"\nメッセージボックスを使うことができます。"
513		&msg = &msg + "\n\nこのメッセージボックスはボタン指定 = 5 です。"
514		メッセージボックス　&title, &msg,アイコン = i , ボタン指定 = 5 , 制御文字展開 = する , &ans
515
516		if ( &ans = 6 )
517		確認　"[はい]ボタンを押しました：戻り値は " + #str(&ans) ＋ " です。"
518		else
519		確認　"[いいえ]ボタンを押しました：戻り値は " + #str(&ans) ＋ " です。"
520		end
521
522		手続き定義終了

<< INFprcMsgYesNo( &icon, &title, &msg, &ans ) >>

5501		手続き定義開始　cmdINFボタン指定５Click( )
5502		変数宣言　自動，文字列｛ &icon, &title = "cmdINFボタン指定５Click( )", &msg ｝
5503		変数宣言　自動，整数｛ &ans ｝
5504
5505		&msg =　　　　　　"メッセージボックスはいろいろな場面で使われる"
5506		&msg = &msg + 　"\n便利なコマンドです。"
5507		&msg = &msg + "\n\nほとんどの場合ではボタン指定１，２，５で "
5508		&msg = &msg + 　"\n対応できるのではないかと思われます。"
5509		&msg = &msg + "\n\nただ標準化という視点で見ると"
5510		&msg = &msg + 　"\nボタン指定での戻り値がバラバラなのが気になります。"
5511		&msg = &msg + "\n\nそこで INF_Framework では戻り値を標準化した"
5512		&msg = &msg + 　"\nメッセージボックスを使うことができます。"
5513		&msg = &msg + "\n\nプロシージャ INFprcMsgYesNo を実行しました。"
5514		&icon = "i"　　　　　　　/* !：警告 , ?：問い合わせ , i：情報 , E：エラー */
5515		手続き実行　INFprcMsgYesNo( &icon, &title, &msg, &ans )
5516
5517		if ( &ans = 1 )
5518		確認　"[はい]ボタンを押しました：戻り値は " + #str(&ans) ＋ " です。"
5519		else
5520		確認　"[いいえ]ボタンを押しました：戻り値は " + #str(&ans) ＋ " です。"
5521		end
5522
5523		手続き定義終了

＜桐の論理値＞

桐には項目のデータ型として論理型（Yes/No型）はありません。
項目のデータ型に論理型が無いのですから変数のデータ型にも論理型がありません。
しかし、論理値に相当する値はあるのです。結論から先にいうと次のようになります。

（１）	条件式において、未定義値は偽とみなされる。
（２）	条件式において、数値型等の０（ゼロ）は偽とみなされる。
（３）	それ以外は条件式において真とみなされる。

以上は桐の釣魚大全　フォームアプリケーション教書　第２部　より引用
※ 論理値の詳細な解説は ONnoji さんの WEBサイト桐の釣魚大全をご覧になってください（リンクページからジャンプできます）

以上のことから
if ( &ans = 1 ) は if ( &ans ) と書けるのですが（ある意味、基本的なルール）
メッセージボックスのように、戻り値が１～７まであるとそうはいかなくなります。

INFprcMsgPause、INFprcMsgOKCancel、IINFprcMsgYesNo を利用してルールに順守することができます。