<!--
''*****************************************************************
''File Name  : OpenMsg.js
''Purpose    : 提示訊息程式
''Ref Object : 無
''Methods    : 
''Remark     : intMethod = 0 ---> 預設
''             intMethod = 1 ---> Yes, No
''             intMethod = 2 ---> OK, Cancel
''Version    : 2002/09/04 by Folse Huang
''*****************************************************************
-->
'錯誤
Function do_MsgInfo1(strPrompt,intMethod)
   Select case intMethod
      case 0 : do_MsgInfo1 = MsgBox(strPrompt, vbCritical, "錯誤訊息")
      case 1 : do_MsgInfo1 = MsgBox(strPrompt, vbCritical+vbYesNo, "錯誤訊息")
      case 2 : do_MsgInfo1 = MsgBox(strPrompt, vbCritical+vbOKCancel, "錯誤訊息")
   End Select
End Function

'警告
Function do_MsgInfo2(strPrompt,intMethod)
   Select case intMethod
      case 0 : do_MsgInfo2 = MsgBox(strPrompt, vbExclamation, "警告訊息")
      case 1 : do_MsgInfo2 = MsgBox(strPrompt, vbExclamation+vbYesNo, "警告訊息")
      case 2 : do_MsgInfo2 = MsgBox(strPrompt, vbExclamation+vbOKCancel, "警告訊息")
   End Select
End Function

'提示
Function do_MsgInfo3(strPrompt,intMethod)
   Select case intMethod
      case 0 : do_MsgInfo3 = MsgBox(strPrompt, vbInformation, "提示訊息")
      case 1 : do_MsgInfo3 = MsgBox(strPrompt, vbInformation+vbYesNo, "提示訊息")
      case 2 : do_MsgInfo3 = MsgBox(strPrompt, vbInformation+vbOKCancel, "提示訊息")
   End Select
End Function