VBでの独自エラー(vbObjectError)について
たとえば、Visual Basicで定義されているエラーのほかにも、独自のエラーを定義したい場合があります。
そのような場合は、定数 vbObjectError にエラー番号を加算して番号を作成します。
定数 vbObjectError には、vbObjectError + 512 までの範囲の数が予約されていて、エラー番号をこの範囲を超える数に指定すると、Visual Basic の将来のバージョンや、その他の Microsoft Basic 製品との重複を防ぐことができます。
(注意:アプリケーションで使用しているActiveXコントロールでも、独自のエラー番号を定義している可能性があり、重複を避けるための確認が必要な場合があります。)
独自のエラー番号を定義するには、モジュールの宣言セクションで定数として宣言します。
' エラー定数 Const gcstUserErr1 = 1 + vbObjectError + 512 Const gcstUserErr2 = 2 + vbObjectError + 512
このようにしておくと、通常のエラーの場合と同様に、Raise メソッドを使って独自のエラーを発生させることができます。
この場合、Err オブジェクトの Description プロパティは、"アプリケーション定義またはオブジェクト定義のエラーです。" という標準の記述を返します。
独自のエラーの記述を使う場合は、記述を Raise メソッドに引数として与える必要があります。