# message.pl
# 内容 : Windowsのメッセージを表示する。
# Copyright (c) 2002-2010 Mitsuo Minagawa, All rights reserved.
# (minagawa@fb3.so-net.ne.jp)  
# 使用方法 : c:\>perl message.pl
#
use	win32;

#下記のようにして、Windowsのメッセージを表示する。
#
#$res	= Win32::MsgBox("メッセージ",	ボタンおよびアイコン,	"キャプション");
#・・・・・・
#if		($res		== 	1) 			{
#・・・・・・
#}

###　警告メッセージのサンプル
$res	= Win32::MsgBox("このファイルは実行してはいけません。",	0 + 16,	"警告メッセージのサンプル");

if		($res		== 	1) 			{	# OK ボタン

		Win32::MsgBox("「OK」をクリックしました。", 0 + 64, "メッセージのテスト");

}

###　問い合わせメッセージのサンプル
$res	= Win32::MsgBox("これでよろしいですか？",	1 + 32,	"問い合わせメッセージのサンプル");

if		($res		== 	1) 			{	# OK ボタン

		Win32::MsgBox("「OK」をクリックしました。", 0 + 64, "メッセージのテスト");

}
elsif	($res		== 	2) 			{	# キャンセル ボタン

		Win32::MsgBox("「キャンセル」をクリックしました。", 0 + 64, "メッセージのテスト");

}

###　注意メッセージのサンプル
$res	= Win32::MsgBox("このまま処理を続行しますか？",	2 + 48,	"注意メッセージのサンプル");

if		($res		== 	3) 			{	# 中止 ボタン

		Win32::MsgBox("「中止」をクリックしました。", 0 + 64, "メッセージのテスト");

}
elsif	($res		== 	4) 			{	# 再試行 ボタン

		Win32::MsgBox("「再試行」をクリックしました。", 0 + 64, "メッセージのテスト");

}
elsif	($res		== 	5) 			{	# 無視 ボタン

		Win32::MsgBox("「無視」をクリックしました。", 0 + 64, "メッセージのテスト");

}

###　情報メッセージのサンプル
$res	= Win32::MsgBox("内容が理解できましたか？",	4 + 64,	"情報メッセージのサンプル");

if		($res		== 	6) 			{	# はい ボタン

		Win32::MsgBox("「はい」をクリックしました。", 0 + 64, "メッセージのテスト");

}
elsif	($res		== 	7) 			{	# いいえ ボタン

		Win32::MsgBox("「いいえ」をクリックしました。", 0 + 64, "メッセージのテスト");

}

