오류 확인 로직_테스트중

LOAD 아래 입력

 

' Get your application's application domain for error handling.

Dim currentDomain As AppDomain = AppDomain.CurrentDomain

' Define a handler for unhandled exceptions.

AddHandler currentDomain.UnhandledException, AddressOf MYExnHandler

' Define a handler for unhandled exceptions for threads behind forms.

AddHandler Application.ThreadException, AddressOf MYThreadHandler

 

아래 함수 추가

 

Private Sub MYExnHandler(ByVal sender As Object, ByVal e As UnhandledExceptionEventArgs)

Dim EX As Exception

EX = e.ExceptionObject

If EX.StackTrace.Contains("SOMETHING") Then

My.Computer.FileSystem.WriteAllText(LogToWrite, "Error SOMETHING caught:" & EX.StackTrace & vbCrLf, True, System.Text.Encoding.Default)

MsgBox("error caught. Contact **XXX** for assistance!" & vbCrLf & vbCrLf & "Error: " & vbCrLf & EX.StackTrace,, "Fatal Error")

End If

End Sub

 

Private Sub MYThreadHandler(ByVal sender As Object, ByVal e As Threading.ThreadExceptionEventArgs)

If e.Exception.StackTrace.Contains("SOMETHING") Then

My.Computer.FileSystem.WriteAllText(LogToWrite, "Error SOETHING caught:" & e.Exception.StackTrace & vbCrLf, True, System.Text.Encoding.Default)

MsgBox("Error caught. Contact **xxx** for assistance!" & vbCrLf & vbCrLf & "Error: " & vbCrLf & e.Exception.StackTrace,, "Fatal Error")

End If

End Sub