Module MyErrorProc
    'エラーメッセージの処理を投げる
    'fn func name(エラーが起きた関数名)
    'em error message(エラー内容)

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

ITベンチャー企業に就職したので最近はasp.netやってたりjavascriptをやってたりする。
asp.net言語は癖があって面倒くさい。ITのSIerってJAVA一本だと思ってたら意外とFrameWorksやってるのな。

ともあれ結局自分はVB厨に逆戻りだったり。aspはコード部分はvbに使えるからね。
まあそんなわけでVB6.0厨からVB.net厨に地獄のジョブチェンジをしたのでいろいろと遊んでたら上のソースを書く
羽目になったわけだ。

上のコードの使用例を見れば便利であることはわかる人はわかると思う。
コンソールを使ってもいいけど、まあそれは必要に応じてということでw　コンソールわざわざ出すの面倒だし

...ところで、stringbuilderってvb.netになかったっけ？　まあ速度にはまだ困ってないんだが

NAME:

MAIL:

URL:

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

COMMENT:

PASS: