Module MyErrorProc
    'エラーメッセージの処理を投げる
    'em error message(エラー内容)

    '使用例　ErrorMsg(System.Reflection.MethodBase.GetCurrentMethod.Name, "ファイル読み込みに失敗しました")
    Public Sub ErrorMsg(ByVal em As String)
        Dim show_msg As String
        Dim sf As New StackFrame(1)
        show_msg = "Error:"
        show_msg = show_msg + sf.GetMethod.Name + vbNewLine
        show_msg = show_msg + em
        MsgBox(show_msg)
    End Sub
End Module

昨日関数うｐしたが、よく考えてみればこうすればよかったりした。
うん。まあ前のやつの方が確実性は高いように思えるが（stackframeはごみが入るとずれる...?）
まあこれでも十分だろう。

vbは.netで便利になったな。なりすぎている感覚はあるが。
6.0にこんな機能はなかった気がするし。これで手打ちが少し減るわけだ。

ちなみに使用方法を一応書いておくと、以下のようになる

Try
    errorthrow(~~~~えらーっぽいもの~~~~~)
Catch ex as Exception
    ErrorMsg("エラーの内容")
End Try

ちなみにExceptionを変えたりして改造するとかなり詳細なエラーを出力できる。
まあ、会社でやってるわけじゃないからこのあたりはだいぶ気楽な感じでいけると思う。
遊びのエラー出力には十分ですな。

NAME:

MAIL:

URL:

COLOR:
Black LimeGreen SeaGreen Teal FireBrick Tomato IndianRed BurlyWood SlateGray DarkSlateBlue LightPink DeepPink DarkOrange Gold DimGray Silver
SUBJECT:

COMMENT:

PASS: