'**************************************************************************
'**	【機能】
'**		サンプル作成用スクリプト
'**
'**	【作成】
'**		version		Date		Person			Reason
'**		--------------------------------------------------------------
'**		v1.00-001	2004-11-14	H.Kine			新規作成
'**
'**	【関数】
'**		<v1.00-001>
'**		doMsgBox()				メッセージボックス
'**		Fp_DayName()			曜日関数
'**
'**************************************************************************/

'**********************************************************************
'**	【機能】
'**		定数宣言
'**
'**	【作成】
'**		2004.05.14		H.Kine
'**
'**********************************************************************/


'**********************************************************************
'**	【機能】
'**		メッセージボックス
'**
'**	【引数】
'**		path			遷移先アドレス
'**
'**	【作成】
'**		2004.05.14		H.Kine
'**
'**********************************************************************/
Public Function doMsgBox( Pt_Msg, Pt_Cls, Pt_Title )

	Dim Ll_Cnt
	Dim Lla_Cls
	Dim Ll_Result

	Redim Lla_Cls(-1)

	Lla_Cls = Split("+" & Pt_Cls, "+")

	For Ll_Cnt = 1 To Ubound(Lla_Cls,1)
		Select Case Trim(Trim(Lla_Cls(Ll_Cnt)))

			Case "vbOkOnly"				'0 (既定値) [OK] ボタンのみを表示します。 
				Ll_Cls = Ll_Cls + vbOkOnly

			Case "vbOKCancel"			'1 [OK] ボタンと [キャンセル] ボタンを表示します。 
				Ll_Cls = Ll_Cls + vbOKCancel

			Case "vbAbortRetryIgnore"	'2 [中止]、[再試行]、[無視] の 3 つのボタンを表示します。 
				Ll_Cls = Ll_Cls + vbAbortRetryIgnore

			Case "vbYesNoCancel"		'3 [はい]、[いいえ]、[キャンセル] の 3 つのボタンを表示します。 
				Ll_Cls = Ll_Cls + vbYesNoCancel

			Case "vbYesNo"				'4 [はい] ボタンと [いいえ] ボタンを表示します。 
				Ll_Cls = Ll_Cls + vbYesNo

			Case "vbRetryCancel"		'5 [再試行] ボタンと [キャンセル] ボタンを表示します。 
				Ll_Cls = Ll_Cls + vbRetryCancel

			Case "vbDefaultButton1"		'0 (既定値)第 1 ボタンを標準ボタンに設定します。 
				Ll_Cls = Ll_Cls + vbDefaultButton1

			Case "vbDefaultButton2"		'256 第 2 ボタンを標準ボタンに設定します。 
				Ll_Cls = Ll_Cls + vbDefaultButton2

			Case "vbDefaultButton3"		'512 第 3 ボタンを標準ボタンに設定します。 
				Ll_Cls = Ll_Cls + vbDefaultButton3

			Case "vbDefaultButton4"		'768 第 4 ボタンを標準ボタンに設定します。 
				Ll_Cls = Ll_Cls + vbDefaultButton4

			Case "vbCritical"			'16 警告メッセージ アイコンを表示します。 
				Ll_Cls = Ll_Cls + vbCritical

			Case "vbQuestion"			'32 問い合わせメッセージ アイコンを表示します。 
				Ll_Cls = Ll_Cls + vbQuestion

			Case "vbExclamation"		'48 注意メッセージ アイコンを表示します。 
				Ll_Cls = Ll_Cls + vbExclamation

			Case "vbInformation"		'64 情報メッセージ アイコンを表示します。 
				Ll_Cls = Ll_Cls + vbInformation

			Case "vbApplicationModal"	'0 (既定値)アプリケーション モーダルに設定します。 
				Ll_Cls = Ll_Cls + vbApplicationModal

			Case "vbSystemModal"		'4096 システム モーダルに設定します。 
				Ll_Cls = Ll_Cls + vbSystemModal

			Case "vbMsgBoxHelpButton"	'16384 ヘルプ ボタンを追加します。 
				Ll_Cls = Ll_Cls + vbMsgBoxHelpButton

			Case "VbMsgBoxSetForeground"'65536 最前面のウィンドウとして表示します。 
				Ll_Cls = Ll_Cls + VbMsgBoxSetForeground

			Case "vbMsgBoxRight"		'524288 テキストを右寄せで表示します。 
				Ll_Cls = Ll_Cls + vbMsgBoxRight

			Case "vbMsgBoxRtlReading"	'1048576 テキストを、右から左の方向で表示します 
				Ll_Cls = Ll_Cls + vbMsgBoxRtlReading

			Case Else					'上記以外
				Ll_Cls = Ll_Cls

		End Select
	Next

	Ll_Result = Msgbox( Pt_Msg, Ll_Cls, Pt_Title )

	Select Case Ll_Result
		Case vbOK		'1 [OK] 
			doMsgBox = 1

		Case vbCancel	'2 [キャンセル] 
			doMsgBox = 2

		Case vbAbort	'3 [中止] 
			doMsgBox = 3

		Case vbRetry	'4 [再試行] 
			doMsgBox = 4

		Case vbIgnore	'5 [無視] 
			doMsgBox = 5

		Case vbYes		'6 [はい] 
			doMsgBox = 6

		Case vbNo		'7 [いいえ] 
			doMsgBox = 7

		Case Else
			doMsgBox = 0

	End Select
End Function