リスト3:エラーメッセージを表示するプロシージャ


※String型の配列変数strErrMsg(0-3)に、エラーメッセージが
設定されているものとします

Sub ViewErrMsg(intErrNum As Integer)
 MsgBox strErrMsg(intErrNum), _
  vbExclamation + VBOkOnly, _
  "エラーが発生しました"
End Sub



本文へ戻る