MSGBOX関数

本ページには広告が含まれています。

メッセージボックスを表示します。第一引数に表示するメッセージ、第二引数に表示するボタンの種類を指定します。ボタンが押されるまで処理はストップします。処理を止めずメッセージを表示するだけの場合、FUKIDASI関数を使用します。メッセージボックスの表示に制限時間を設定するにはWshShell.Popup メソッドを使います。

右上のバツをクリックした場合、BTN_CANCEL(2)が返ります。

構文

Integer = MSGBOX( メッセージ, 表示ボタン, X, Y, フォーカスボタン, リンクフラグ )

引数

メッセージ（String）必須: 表示メッセージ
表示ボタン（#msgbox = BTN_OK）省略可: ボタン種別（複数指定可、デフォルトはBTN_OK）
BTN_YES（4）、BTN_NO（8）、BTN_OK（1）、BTN_CANCEL（2）、BTN_ABORT(中止)（16）、BTN_RETRY(再試行)（32）、BTN_IGNORE(無視)（64）
X、Y （Integer = 中央）省略可: 表示位置 X、Y　（デフォルトは中央、 -1,-1にて前回位置）
フォーカスボタン（#msgbox = BTN_OK）省略可: デフォルトとしてフォーカスを与えるボタン種別
リンクフラグ（Boolean = False）省略可: TRUEにするとhttp://, mailto:表記のある部分はリンク形式にする（デフォルト FALSE）

戻り値: 押されたボタン種別

ボタンの種類

MSGBOX関数の第二引数にはボタンの種類を指定することができます。この引数を省略した場合は[OK]ボタンのみが表示されます。

定数名	値	説明
BTN_OK	1	[OK]ボタンを表示します。
BTN_CANCEL	2	[Cancel]ボタンを表示します。
BTN_YES	4	[はい(Y)]ボタンを表示します。
BTN_NO	8	[いいえ(N)]ボタンを表示します。
BTN_ABORT	16	[中止(A)]ボタンを表示します。
BTN_RETRY	32	[再試行(R)]ボタンを表示します。
BTN_IGNORE	64	[無視(I)]ボタンを表示します。

以下がそれぞれ表示されるボタンです。(　)内のアルファベットのキーを押すことで選択することもできます。

.png"] .png"] .png"] .png"] .png"] .png"] .png"]

複数ボタンの指定

複数のボタンを指定する場合は定数名を論理和（OR）で繋げます。

複数のボタンを指定した場合、メッセージボックスには定数の順番に関係なく左からはい、いいえ、OK、Cancel、中止、再試行、無視の順にボタンが表示されます。

よく使う組み合わせを定数として定義しておくと引数を簡潔に書けます。使いたいボタンの定数を論理和（OR）で繋げて書きます。頻繁に使う場合は以下の定数を定義しておくと良いです。

以下は数値を直接指定したものです。

以下のボタンの組み合わせはExcel VBAを参考にしています。

定数名	値	説明
OKOnly	1	[OK]ボタンのみを表示します。
OKCancel	3	[OK]ボタンと[Cancel]ボタンを表示します。
AbortRetryIgnore	112	[中止]、[再試行]、[無視]の各ボタンを表示します。
YesNoCancel	14	[はい]、[いいえ]、[キャンセル] の各ボタンを表示します。
YesNo	12	[はい]ボタンと[いいえ]ボタンを表示します。
RetryCancel	34	[再試行]ボタンと[キャンセル]ボタンを表示します。

以下はこれら定数の表示例です。

OKOnly
OKCancel
AbortRetryIgnore
YesNoCancel
YesNo
RetryCancel

これらの定数を使うことで、以下のようにはいといいえのボタンをYesNoで簡潔に書くことができます。

ボタン種別に128の倍数の値を指定した場合、いずれのボタンも表示されません。この場合は右上のキャンセルボタンでダイアログを閉じます。

フォーカスボタン

メッセージボックスが表示されたときのデフォルトのフォーカスの位置を指定することができます。省略した場合、一番左のボタンがデフォルトのフォーカスボタンになります。

定数名	値	説明
BTN_OK	1	[OK]ボタンを表示します。
BTN_CANCEL	2	[Cancel]ボタンを表示します。
BTN_YES	4	[はい(Y)]ボタンを表示します。
BTN_NO	8	[いいえ(N)]ボタンを表示します。
BTN_ABORT	16	[中止(A)]ボタンを表示します。
BTN_RETRY	32	[再試行(R)]ボタンを表示します。
BTN_IGNORE	64	[無視(I)]ボタンを表示します。

例えばファイルを削除するメッセージボックスで選択肢としてはい、いいえを表示する場合デフォルトでははいにフォーカスがありますが、いいえにフォーカスを変更します。以下のプログラムではどちらを選択してもファイルが削除されることはありません。

ユーザーの誤操作防止のためにデフォルトフォーカスの設定は重要です。間違って選択されても大丈夫なボタンにデフォルトボタンを指定します。

条件分岐

メッセージボックスの選択されたボタンで条件分岐をするにはSELECT文を使います。

MSGBOX関数は押されたボタン種別を戻り値として返すので、その値をCASE句で分岐し処理を記述します。

以下のプログラムはボタン種別に中止、再試行、無視のボタンを選択したときの処理の流れを表したものです。分岐後の処理を中止のときはEXITEXIT（EXITEXIT文）で強制終了、再試行のときはCONTINUE（CONTINUE文）でWHILE文の先頭に戻る、無視のときはBREAK（BREAK文）でループを抜けるという処理を行っています。WHILE文の中に再試行したときの処理を記述します。以下のプログラムで再試行するのはランダム値を表示する処理です。

リンクフラグ

リンクフラグをTrueにすると、http://から始まるURLやmailto:から始まるメールアドレスをリンク形式にします。

リンクをクリックするとURLの場合はWebブラウザ、メールアドレスの場合そのアドレスを送信先としてメーラーが既定に指定されているソフトで起動します。

既定のブラウザを取得するプログラムです。

既定のメーラーを取得するプログラムです。

以下はURLにハイパーリンクを設定するプログラムの例です。ハイパーリンクに指定できるのはhttp://・https://から始まるURLのみで、ftp://やfile:///などをリンクに設定することはできません。

以下はメールアドレスにハイパーリンクを設定する例です。mailto:を含めたテキストにリンクが設定されます。

使い方

メッセージを表示するには、第一引数に表示させるメッセージを記述します。

表示するメッセージを途中で改行する場合は特殊文字の<#CR>を使います。

1行が長文になる場合は、改行する位置でプログラムも改行すると見やすくなります。

プログラム実行例

UWSCを起動したときのウィンドウの座標をマウス位置の座標に書き換える

使用関数

メッセージボックスで処理分岐

使用関数

選択した個人用フォルダーのパスを表示

DIM WshShell = CREATEOLEOBJ("WScript.Shell")

DIM str = POWERSHELL("Get-Item -Path 'HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders' | Select-Object -ExpandProperty Property")
DIM arr = SPLIT(str, "<#CR>")

QSORT(arr, QSRT_A)

arrayFilter(arr, "reTest(%val%, <#DBL>^[A-Za-z]+$<#DBL>)")

DIM key = SLCTBOX(SLCT_BTN OR SLCT_STR, 30, "選択した項目のパスを表示", arr)

MSGBOX(WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\" + key))

//////////////////////////////////////////////////
// 【引数】
//   array : 一次元配列。参照引数。
//   callback : コールバック関数。callback内で配列の値は「%val%」で使うことができます。
// 【戻り値】
//   callback関数によりフィルタ処理が行われたarrayの全ての要素を含む配列を返します。
//////////////////////////////////////////////////
PROCEDURE arrayFilter(var array[], callback)
	DIM n = 0
	DIM tmp[-1]
	FOR %val% IN array
		IFB EVAL(callback) THEN
			RESIZE(tmp, n)
			tmp[n] = %val%
			n = n + 1
		ENDIF
	NEXT
	RESIZE(array, RESIZE(tmp))
	FOR n = 0 TO RESIZE(tmp)
		array[n] = tmp[n]
	NEXT
FEND

//////////////////////////////////////////////////
// 【引数】
//   cmd : 実行するPowerShellのコマンド
//   debug : デバッグを表示を場合はTrue、表示しない場合はFalse
// 【戻り値】
//////////////////////////////////////////////////
MODULE PowerShell
	DIM title = "PowerShellフォーム"
	DIM class = "WindowsForms10.Window.8.app"
	PROCEDURE Create(debug = FALSE)
		DIM ID = GETID(title, class)
		IFB ID = -1 THEN
			DIM ProcessId = STATUS(GETID(GET_THISUWSC_WIN), ST_PROCESS)
			script = REPLACE(source, "%TITLE%", title)
			script = REPLACE(script, "%PROCESSID%", processId)
			IFB debug THEN
				script = REPLACE(script, "%DEBUG%", "$true")
			ELSE
				script = REPLACE(script, "%DEBUG%", "$false")			
			ENDIF
			POWERSHELL(script, TRUE, FALSE)
			ID = GETID(title,, 5)
		ENDIF
		ProcessId = STATUS(ID, ST_TITLE)
		IFB STATUS(ID, ST_ISID) THEN
			CTRLWIN(ID, SHOW)
		ELSE
			MSGBOX("PowerShellの実行に失敗しました。")
			EXIT
		ENDIF
	FEND
	FUNCTION Execute(cmd)
		Create()
		DIM ID = GETID(title, class)
		CTRLWIN(ID, SHOW)
		CLKITEM(ID, "リセット")
		SENDSTR(ID, cmd, 1, TRUE)
		CLKITEM(ID, "実行")
		DIM t = GETTIME()
		REPEAT
			RESULT = GETSTR(ID, 0, STR_ACC_STATIC)
		UNTIL RESULT <> "" OR GETTIME() - t >= 3
	FEND
	FUNCTION Quit()
		RESULT = CLKITEM(GETID(title, class), "終了")
	FEND
TEXTBLOCK source
add-type -assembly system.windows.forms
$title = "%TITLE%"
$processId = "%PROCESSID%"
$doNotShow = !%DEBUG%
$prompt = ""
$timer = new-object windows.forms.timer -property @{interval=60}
$form = new-object windows.forms.form -property @{text=$title}
$form.Width = 300
$form.Height = 300
$timer.add_tick({
	if(ps -id $processId){
	}else{
		ps -id $pid|kill
	}
})
$form.add_shown({$timer.start()})
$base = new-object windows.forms.flowlayoutpanel -property @{dock="fill";parent=$form}
$inBox = new-object windows.forms.textbox -property @{
	parent = $base;
	multiline = $true;
	text = $prompt;
	width = 280
}
 
$reset = new-object windows.forms.button -property @{
	parent = $base;
	text = "リセット"
}
$exec = new-object windows.forms.button -property @{
	parent = $base;
	text = "実行"
}
$quit=new-object windows.forms.button -property @{
	parent = $base;
	text = "終了";
	dialogresult = "OK"
}
$outLabel = new-object windows.forms.label -property @{
	parent = $base;
	text = $prompt;
	width = 280;
	height = 150
}
$reset.add_click({
	$outLabel.text=$prompt
	$inBox.text=$prompt
})
$exec.add_click({
	try{
		$res=Invoke-Expression $inBox.text
		$type=Invoke-Expression ("(" + $inBox.text + ").GetType()")
		$res = $type
		if(($type -eq [System.Object[]])-Or ($type -eq [hashtable])){
			$properties = Invoke-Expression ("(" + $inBox.text + " | Get-Member -MemberType Property | Select-Object -ExpandProperty Name) -join ','")
			$res = Invoke-Expression ("((" + $inBox.text + ") | Select-Object " + $properties + " | ConvertTo-Csv -NoTypeInformation) -join '`r`n'")
		}else{
			$res = Invoke-Expression $inBox.text
		}
	}catch{
		$res=$error[0]
	}
	$outLabel.text=$res
	$inBox.text=$prompt
})
if($doNotShow){
	$form.opacity=0.01
	$form.formborderstyle="none"
}
$form.showdialog()
ENDTEXTBLOCK
ENDMODULE

使用関数

ポップアップウィンドウを表示

結果

使用関数

ファイルをZIP形式で圧縮する

DIM EXCEL = CREATEOLEOBJ("Excel.Application")
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")

DIM path = EXCEL.GetOpenFilename()
DIM DestinationPath = FSO.BuildPath(GET_CUR_DIR, FSO.GetBaseName(path) + ".zip")
DestinationPath = uniqueFilename(DestinationPath)

IFB path = FALSE THEN
	MSGBOX("ファイルが選択されなかったので終了します")
	EXIT
ENDIF

FUKIDASI("ファイルを圧縮中")
POWERSHELL("Compress-Archive -Path <#DBL>" + path + "<#DBL> -DestinationPath <#DBL>" + DestinationPath + "<#DBL>")
FUKIDASI("圧縮が完了しました")
SLEEP(1.00)

//////////////////////////////////////////////////
// 【引数】
//   path : ファイルのパス
// 【戻り値】
//   重複しないファイル名
//////////////////////////////////////////////////
FUNCTION uniqueFilename(path)
	DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
	IFB FSO.FileExists(path) THEN
		DIM fol = FSO.GetParentFolderName(path)
		DIM filename = FSO.GetBaseName(path)
		DIM extension = FSO.GetExtensionName(path)
		DIM i = 2
		WHILE FSO.FileExists(FSO.BuildPath(fol, filename + " (" + i + ")." + extension))
			i = i + 1
		WEND
		RESULT = FSO.BuildPath(fol, filename + " (" + i + ")." + extension)
	ELSE
		RESULT = path
	ENDIF
FEND

使用関数

MSGBOXの種別の数値から表示されるボタンを取得

結果

使用関数

メッセージボックスを表示し、押されたボタンによって処理を変える

使用関数

指定した原子番号から元素記号を出力

結果

使用関数

古いキャッシュファイルを削除する

Localフォルダ（C:\Users\username\AppData\Local\Temp \）にあるファイルの最終更新日時が7日以上前のファイルをごみ箱に移動します。

使用関数

公開日: 2018年10月28日
更新日: 2024年2月11日

ChooseColorA(Comdlg32.dll)
INPUT関数 (スクリプト関数): インプットボックスを表示します。

MSGBOX関数

ボタンの種類

複数ボタンの指定

フォーカスボタン

条件分岐

リンクフラグ

使い方

プログラム実行例

UWSCを起動したときのウィンドウの座標をマウス位置の座標に書き換える

メッセージボックスで処理分岐

選択した個人用フォルダーのパスを表示

ポップアップウィンドウを表示

ファイルをZIP形式で圧縮する

MSGBOXの種別の数値から表示されるボタンを取得

メッセージボックスを表示し、押されたボタンによって処理を変える

指定した原子番号から元素記号を出力

古いキャッシュファイルを削除する

関連記事

検索フォーム

設定

最近の投稿・更新

タグ一覧

このページを共有する

寄付・支援