Imports System.Threading
Public Class Program
_
Shared Sub Main()
' ThreadExceptionƒCƒxƒ“ƒgEƒnƒ“ƒhƒ‰‚ð“o˜^‚·‚é
AddHandler Application.ThreadException, AddressOf Application_ThreadException
' UnhandledExceptionƒCƒxƒ“ƒgEƒnƒ“ƒhƒ‰‚ð“o˜^‚·‚é
AddHandler Thread.GetDomain().UnhandledException, AddressOf Application_UnhandledException
' ƒƒCƒ“EƒXƒŒƒbƒhˆÈŠO‚Ì—áŠO‚ÍUnhandledException‚Ńnƒ“ƒhƒ‹‚·‚é
'Dim buffer As String = "1"
'Dim [error] As Char = buffer.Chars(2)
' ‚±‚±‚ÅŽÀs‚³‚ê‚郃Cƒ“EƒAƒvƒŠƒP[ƒVƒ‡ƒ“EƒXƒŒƒbƒh‚Ì—áŠO‚Í
' Application_ThreadException‚Ńnƒ“ƒhƒ‹‚Å‚«‚é
Application.Run(New Form1)
End Sub
' –¢ˆ——áŠO‚ðƒLƒƒƒbƒ`‚·‚éƒCƒxƒ“ƒgEƒnƒ“ƒhƒ‰iWindowsƒAƒvƒŠƒP[ƒVƒ‡ƒ“—pj
Public Shared Sub Application_ThreadException(ByVal sender As Object, ByVal e As ThreadExceptionEventArgs)
ShowErrorMessage(e.Exception, "Application_ThreadException‚É‚æ‚é—áŠO’Ê’m‚Å‚·B")
End Sub
' –¢ˆ——áŠO‚ðƒLƒƒƒbƒ`‚·‚éƒCƒxƒ“ƒgEƒnƒ“ƒhƒ‰iŽå‚ɃRƒ“ƒ\[ƒ‹EƒAƒvƒŠƒP[ƒVƒ‡ƒ“—pj
Public Shared Sub Application_UnhandledException(ByVal sender As Object, ByVal e As UnhandledExceptionEventArgs)
Dim ex As Exception = CType(e.ExceptionObject, Exception)
If Not ex Is Nothing Then
ShowErrorMessage(ex, "Application_UnhandledException‚É‚æ‚é—áŠO’Ê’m‚Å‚·B")
End If
End Sub
' ƒ†[ƒU[EƒtƒŒƒ“ƒhƒŠ‚ȃ_ƒCƒAƒƒO‚ð•\Ž¦‚·‚郃\ƒbƒh
Public Shared Sub ShowErrorMessage(ByVal ex As Exception, ByVal extraMessage As String)
MessageBox.Show(extraMessage & vbLf & "\\\\\\\\" & vbLf & vbLf & _
"ƒGƒ‰[‚ª”¶‚µ‚Ü‚µ‚½BŠJ”Œ³‚É‚¨’m‚点‚‚¾‚³‚¢" & vbLf & vbLf & _
"yƒGƒ‰[“à—ez" & vbLf & ex.Message & vbLf & vbLf & _
"yƒXƒ^ƒbƒNƒgƒŒ[ƒXz" & vbLf & ex.StackTrace)
End Sub
End Class