44 lines
1.8 KiB
VB.net
44 lines
1.8 KiB
VB.net
Namespace My
|
|
|
|
Class MyApplication
|
|
|
|
'Startup: Raised when the application starts, before the startup form is created.
|
|
'Shutdown: Raised after all application forms are closed. This event is not raised if the application is terminating abnormally.
|
|
'UnhandledException: Raised if the application encounters an unhandled exception.
|
|
'StartupNextInstance: Raised when launching a single-instance application and the application is already active.
|
|
'NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
|
|
|
|
''' <summary>
|
|
''' Update the network connectivity status on the main form each time the connection status changes.
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
|
|
|
|
''' <summary>
|
|
''' Include logic here that should be performed before any forms are loaded
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
|
|
|
|
''' <summary>
|
|
''' Update the status strip to denote the current network connection status
|
|
''' </summary>
|
|
''' <param name="connected"></param>
|
|
''' <remarks></remarks>
|
|
|
|
Private Sub MyApplication_UnhandledException(sender As Object, e As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) Handles Me.UnhandledException
|
|
Dim M As New System.Text.StringBuilder
|
|
M.AppendLine("처리되지 않은 오류가 발생했습니다")
|
|
M.AppendLine("에러메세지 : " + e.Exception.Message)
|
|
MsgBox(M.ToString, MsgBoxStyle.Critical, "확인")
|
|
e.ExitApplication = True
|
|
End Sub
|
|
|
|
End Class
|
|
End Namespace
|
|
|