Imports Microsoft.VisualBasic.ApplicationServices

Namespace My

' MyApplication에 대해 다음 이벤트를 사용할 수 있습니다.

' Startup: 애플리케이션이 시작되고 시작 폼이 만들어지기 전에 발생합니다.

' Shutdown: 모든 애플리케이션 폼이 닫힌 후에 발생합니다. 이 이벤트는 애플리케이션이 비정상적으로 종료되는 경우에는 발생하지 않습니다.

' UnhandledException: 애플리케이션에서 처리되지 않은 예외가 발생하는 경우 이 이벤트가 발생합니다.

' StartupNextInstance: 단일 인스턴스 애플리케이션을 시작할 때 해당 애플리케이션이 이미 활성 상태인 경우 발생합니다.

' NetworkAvailabilityChanged: 네트워크가 연결되거나 연결이 끊어질 때 발생합니다.

Partial Friend Class MyApplication

Private Sub MyApplication_UnhandledException(sender As Object, e As UnhandledExceptionEventArgs) Handles Me.UnhandledException

e.ExitApplication = False

ErrorForm.RichTextBox1.Text = e.Exception.Message + vbCr + "=====" + vbCr + DateTime.Now.ToString + vbCr + vbCr + e.Exception.ToString

ErrorForm.Show()

End Sub

Private Sub MyApplication_Shutdown(sender As Object, e As EventArgs) Handles Me.Shutdown

Form1.NotifyIcon1.Visible = False

End Sub

Private Sub MyApplication_StartupNextInstance(sender As Object, e As StartupNextInstanceEventArgs) Handles Me.StartupNextInstance

Form1.ReopenForm()

End Sub

End Class

End Namespace