初始化提交
仓库转移到Gitea,初始化提交,可能丢失以前的git版本日志
This commit is contained in:
29
AUTS_Win/ApplicationEvents.vb
Normal file
29
AUTS_Win/ApplicationEvents.vb
Normal file
@@ -0,0 +1,29 @@
|
||||
Imports Microsoft.VisualBasic.ApplicationServices
|
||||
Imports Microsoft.VisualBasic.Devices
|
||||
Imports UTS_Core.DebugLog
|
||||
|
||||
Namespace My
|
||||
' 以下事件可用于 MyApplication:
|
||||
' Startup:应用程序启动时在创建启动窗体之前引发。
|
||||
' Shutdown:在关闭所有应用程序窗体后引发。如果应用程序非正常终止,则不会引发此事件。
|
||||
' UnhandledException:在应用程序遇到未经处理的异常时引发。
|
||||
' StartupNextInstance:在启动单实例应用程序且应用程序已处于活动状态时引发。
|
||||
' NetworkAvailabilityChanged:在连接或断开网络连接时引发。
|
||||
Partial Friend Class MyApplication
|
||||
Private Sub MyApplication_Startup(sender As Object, e As StartupEventArgs) Handles Me.Startup
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub MyApplication_NetworkAvailabilityChanged(sender As Object, e As NetworkAvailableEventArgs) Handles Me.NetworkAvailabilityChanged
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub MyApplication_UnhandledException(sender As Object, e As UnhandledExceptionEventArgs) Handles Me.UnhandledException
|
||||
MsgBox($"UTS致命错误,{e.Exception}")
|
||||
ApplicationLog.WriteFatalLog($"UTS致命错误,{e.Exception}")
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
Reference in New Issue
Block a user