共用方式為


如何:在 Visual Basic 中記錄例外狀況

您可以使用 My.Application.LogMy.Log 物件來記錄應用程式中發生之例外狀況的相關資訊。 下列範例示範如何使用 My.Application.Log.WriteException 方法,以記錄您明確攔截到的例外狀況和未處理的例外狀況。

如需記錄追蹤資訊,請使用 My.Application.Log.WriteEntry 方法。 如需詳細資訊,請參閱 WriteEntry

記錄已處理的例外狀況

  1. 建立將產生例外狀況資訊的方法。

    Public Sub ExceptionLogTest(ByVal fileName As String)
    End Sub
    
  2. 使用 Try...Catch 區塊來攔截例外狀況。

    Try
    Catch ex As Exception
    End Try
    
  3. 將可產生例外狀況的程式碼放在 Try 區塊中。

    取消 DimMsgBox 行的註解,造成 NullReferenceException 例外狀況。

    ' Code that might generate an exception goes here.
    ' For example:
    '    Dim x As Object
    '    MsgBox(x.ToString)
    
  4. Catch 區塊中,使用 My.Application.Log.WriteException 方法來寫入例外狀況資訊。

    My.Application.Log.WriteException(ex,
        TraceEventType.Error,
        "Exception in ExceptionLogTest " &
        "with argument " & fileName & ".")
    

    下列範例顯示用於記錄已處理例外狀況的完整程式碼。

    Public Sub ExceptionLogTest(ByVal fileName As String)
        Try
            ' Code that might generate an exception goes here.
            ' For example:
            '    Dim x As Object
            '    MsgBox(x.ToString)
        Catch ex As Exception
            My.Application.Log.WriteException(ex,
                TraceEventType.Error,
                "Exception in ExceptionLogTest " &
                "with argument " & fileName & ".")
        End Try
    End Sub
    

記錄未處理的例外狀況

  1. 方案總管中選取專案。 在 [ 專案 ] 功能表上,選擇 [ 屬性]。

  2. 按一下 [應用程式] 索引標籤。

  3. 按一下 [檢視應用程式事件] 按鈕以開啟 [程式碼編輯器]。

    這會開啟 ApplicationEvents.vb 檔案。

  4. 在 [程式碼編輯器] 中開啟 ApplicationEvents.vb 檔案。 在 [一般] 功能表上,選擇 [MyApplication 事件]。

  5. 在 [宣告] 功能表上,選擇 [未處理的例外狀況]

    應用程式在主應用程式執行之前,引發 UnhandledException 事件。

  6. My.Application.Log.WriteException 方法加入 UnhandledException 事件處理常式。

    My.Application.Log.WriteException(e.Exception,
        TraceEventType.Critical,
        "Application shut down at " &
        My.Computer.Clock.GmtTime.ToString)
    

    下列範例顯示用於記錄未處理例外狀況的完整程式碼。

    Private Sub MyApplication_UnhandledException(
        ByVal sender As Object,
        ByVal e As ApplicationServices.UnhandledExceptionEventArgs
    ) Handles Me.UnhandledException
        My.Application.Log.WriteException(e.Exception,
            TraceEventType.Critical,
            "Application shut down at " &
            My.Computer.Clock.GmtTime.ToString)
    End Sub
    

另請參閱