全局异常处理（存档）

原创于 2005-06-28 17:33:00 发布 · 1.2k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#application #exception #module #object #string

其他专栏收录该内容

3 篇文章

订阅专栏

博客给出了处理应用程序线程异常的代码示例。在Module1模块中，通过AddHandler捕获线程异常，在异常处理函数里格式化异常信息并显示消息框，根据用户选择决定是否退出应用程序，还考虑了异常对象不可用的情况。

Module Module1
    <STAThread()> _
    Sub main()
        AddHandler Application.ThreadException, AddressOf application_threadexception
        Application.Run(new form1())

End Sub

      Sub application_threadexception(ByVal sender As Object, ByVal e As System.Threading.ThreadExceptionEventArgs)
        Try
            Dim msg As String = String.Format("An Error has occurred:{0}{0}{1}{0}{0}{2}" _
            , ControlChars.Cr, e.Exception.Message, e.Exception.StackTrace)
            Dim result As DialogResult = MessageBox.Show(msg, "Application Error", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Error)
            If result = DialogResult.Abort Then
                Application.Exit()
            End If
        Catch '如果不能正常关闭（这种情况可能是exception对象不可用的缘故）
            Try
                MessageBox.Show("The application will be terminated ", "Fatal Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

            Finally
                Application.Exit()
            End Try
        End Try
    End Sub