Ex:MessageBoxコマンド (テキストフォームでメッセージを表示) - ダウンロードマクロ・コマンド (Download Macro Command) - PROSERPINE(プロセルピナ)

				プロセルピナ
Top	Internet Mail	Private Proxy	Capture Device		Download	Config and Words	Online Help	Online Home

[BACK]

☞ Top > FileDownload > Macro > Ex: Command > MessageBox

Ex:MessageBoxコマンド

Download Top | Macro Top | Command | ExCommand

書式

Ex:MessageBox: (Parameters)

【パラメータ】
O:waitId= : string, Ex:InputForm.Waitコマンドで指定する識別子
mode= : string, "YesNoCancel"、"YesNo"、または "OK" を指定 (Optional)
title= : string, フォームのタイトル (Optional)
text= : string, 表示するメッセージ (Optional)
sub.text= : string, サブテキストエリアに表示するメッセージ (Optional)
sub.caption= : string, サブテキストエリアのキャプション (Optional)
cBox.text= : string, チェックボックスに表示する文字列 (Optional)
cBox.checked= : string, チェックボックスの初期値 (Optional)
waitSec= : int, ダイアログを表示する秒数 (Optional)

概要

メッセージを表示し、ユーザーが Yes、No を選択できるボタンを表示します。
このコマンドの後には、 Ex:InputForm.Waitコマンドを記述して、ユーザーからの操作を待ちます。

操作を待つ時間は、このコマンドの waitSec= パラメータと、 Ex:InputForm.Waitコマンドの waitSec= パラメータの両方で指定します。

短いメッセージを表示するだけの場合は、 Ex:Popupコマンドが便利です。

記述例

次の例は、「YesかNoを選択してください」と表示し、[Yes] と [No] のボタンを表示して、ユーザーの選択を15秒待つ例です。
[Yes]を選択すると、実行結果に「Yesが選択されました。」と設定します (putコマンド)。

:Sample {
 Ex:MessageBox: O:waitId=strl[11] mode="YesNo" text="YesかNoを選択してください" title="サンプル" waitSec=15;
 Ex:InputForm.Wait: waitId=strl[11] waitSec=15 O:result=strl[12];
 if (strl[12].StartsWith{"YES:"} == "true") { 
   put: value="Yesが選択されました。\r\n" strl[12];
   end:
   }
 if (strl[12].StartsWith{"NO:"} == "true") { 
   put: value="Noが選択されました。\r\n" strl[12];
   end:
   }
 put: value=strl[12];
 end:
 }

【コピペで確認】 上記のサンプルコードはメモ帳モードで開いたテキストフォームにコピー＆ペーストして、 テストモード実行で動作確認することができます。

Ex:MessageBoxコマンドの O:waitId=パラメータで指定した文字列変数(上記例では strl[11])に、waitIdが設定されます。この値を Ex:InputForm.Waitコマンドの waitId=パラメータに指定します。

mode=パラメータで YesNo の文字列を指定しているので、フォームには Yes と No の２つのボタンが表示されます。
どちらが選択されたかは、 Ex:InputForm.Waitコマンドの O:result=パラメータで指定された文字列変数(上記例では strl[12])に設定されます。
[Yes]のボタンが選択された場合は、 YES: の４文字で開始される文字列が、 [No]のボタンが選択された場合は、 NO: の３文字で開始される文字列が設定されます。
タイムアウトした場合は、 NG: の３文字で開始される文字列が設定されます。

ユーザーの操作を何秒待つかは、 Ex:InputForm.Waitコマンドの waitSec=パラメータで指定します。
15秒待つ場合は、
waitSec=15
と指定します。
一般的に、Ex:InputForm.Waitコマンドで操作待ちをする時間と、ダイアログボックスを表示する時間(このコマンドのwaitSec=パラメータで指定)は同じ値を指定します。

表示するメッセージは text=パラメータに文字列で指定します。
文字列先頭に半角!記号をつけた場合、フォームに！アイコンが表示されます。
文字列先頭に半角?記号をつけた場合は、？アイコンが表示されます。

text=パラメータで表示されるエリアでは表示しきれない複数行にわたる長文のメッセージは、サブテキストエリアで表示することができます。
サブテキストエリアに表示したい場合は、 sub.text=パラメータに文字列を指定します。
sub.caption=パラメータでサブテキストエリアの内容の簡単な説明をつけることができます。

パラメータに sub.text.isFile を指定し、 sub.text=パラメータにテキストファイルを指定すると、そのファイルの内容をサブテキストエリアで表示します。
次の例は、サブテキストエリアに GTmail.cfg の内容を表示する例です。

:Sample {
 Ex:MessageBox: O:waitId=strl[11] mode="OK" text="GTmail.cfgの内容です。確認して [OK] をクリックしてください。" sub.text.isFile  sub.text="{{GTMAIL_HOME}}\\ctrl\\GTmail.cfg";
 Ex:InputForm.Wait: waitId=strl[11] waitSec=30 O:result=strl[12];
 if (strl[12].StartsWith{"OK:"} == "true") { 
   put: value="OKが選択されました。";
   end:
   }
 if (strl[12].StartsWith{"NG:"} == "true") { 
   put: value="タイムアウトしました。";
   end:
   }
 }

mode=パラメータの指定

mode=パラメータに指定できるのは次の３つの文字列です。

YesNo
YesNoCancel
OK

YesNo を指定した場合、フォームには [Yes] と [No] の２つのボタンが表示されます。
YesNoCancel を指定した場合は、[Yes] と [No] と [Cancel] の３つです。
OK を指定した場合は、[OK] のボタンだけが表示されます。

ユーザーが [Yes] のボタンを選択してフォームを終了した場合、 Ex:InputForm.Waitコマンドの O:result=パラメータで指定した文字列変数には YES: で開始される文字列が設定されます。
[No]のボタンを選択した場合は、 NO: で開始される文字列が設定されます。
[Cancel]のボタンを選択した場合は、 CCL: で開始される文字列が設定されます。
[OK]のボタンを選択した場合は、 OK: で開始される文字列が設定されます。

いずれの場合も、無操作でタイムアウトした場合は、 NG: で開始される文字列が設定されます。

チェックボックスの使用

フォーム下側にチェックボックスを表示することができます。
cBox.text=パラメータに、チェックボックスに表示する文字列を指定します。
初期値は cBox.default=パラメータに true または false で指定します。指定が省略されている場合は false(チェックなし) です。
次の例は、チェックボックスのあるフォームを表示し、[Yes]のクリックで終了したときにチェックボックスがチェックされていた場合には結果に
「YESが選択されました。」「チェックされました。」
と表示する例です。

:Sample {
 Ex:MessageBox: O:waitId=strl[11] mode="YesNoCancel" text="チェックボックスを表示するサンプルです。" cBox.text="チェックボックスです";
 Ex:InputForm.Wait: waitId=strl[11] waitSec=30 O:result=strl[12];
 split: src=strl[12] key=":" strl.index="結果" max=3;
 
 if (strl[12].StartsWith{"YES:"} == "true") { 
   put: value="YESが選択されました。(" strl[12] ")";
   if (strl["結果.1"] == 1) {
     put: value="チェックされました。";
     }
   if (strl["結果.1"] == 0) {
     put: value="チェックされませんでした。";
     }
   end:
   }
 if (strl[12].StartsWith{"NO:"} == "true") { 
   put: value="NOが選択されました。(" strl[12] ")";
   if (strl["結果.1"] == 1) {
     put: value="チェックされました。";
     }
   if (strl["結果.1"] == 0) {
     put: value="チェックされませんでした。";
     }
   end:
   }
 if (strl[12].StartsWith{"CCL:"} == "true") { 
   put: value="キャンセルされました。(" strl[12] ")";
   end:
   }
 if (strl[12].StartsWith{"NG:"} == "true") { 
   put: value="タイムアウトしました。(" strl[12] ")";
   end:
   }
 }

O:result=パラメータで得られた結果が YES: または NO: または OK: で開始される場合、その直後にチェックボックスの状態が格納されています。
チェックボックス未使用の場合は -1、チェックありの場合は 1、チェックなしの場合は 0 が設定されます。
半角:記号区切りになっているので、結果を splitコマンドで切り出して値を取得します。

ここでは、splitコマンドの strl.index=パラメータで文字列結果を指定しているので、splitされた内容は、
strl["結果.0"]
strl["結果.1"]
に設定されます。

[BACK]

プロセルピナ