मेरे पास एक एप्लिकेशन (कोड दिखाया गया है) जो अनचाहे अपवादों को रोकता है और एक कस्टम अपवाद संवाद प्रदर्शित करता है, यह कुछ मदद की हो सकती है?
Imports BM.BEAST.Presenters
Imports BM.BEAST.Security
Imports BM.BEAST.Business
Imports System.Threading
Public Class StartUp
Shared Sub UnhandledException(ByVal sender As Object, ByVal e As System.Threading.ThreadExceptionEventArgs)
Dim unhandledException As New UnhandledExceptionView
unhandledException.uxExceptionDetails.Text = e.Exception.ToString
unhandledException.ShowDialog()
If unhandledException.uxRestart.Checked Then
Application.Restart()
Else
Application.Exit()
End If
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Entry point
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Shared Sub Main()
'All unhandled exceptions are handled by the sub UnhandledException()
'which displays a BEAST exception dialog and gives the user the chance
'to copy the error to clipboard for pasting into email etc..
AddHandler Application.ThreadException, AddressOf UnhandledException
'Application framework not enabled
My.User.InitializeWithWindowsUser()
'Users must be authenticated
If My.User.IsAuthenticated Then
Dim securityPrincipal As Security.ISecurityPrincipal = Nothing
Dim applicationController As ApplicationController = Nothing
Try
'Custom security principal for use throughout the session
securityPrincipal = ServiceGateway.Instance.StartUserSession
AppDomain.CurrentDomain.SetThreadPrincipal(securityPrincipal)
Thread.CurrentPrincipal = securityPrincipal
applicationController = applicationController.GetInstance
applicationController.RegisterNavigator(New ApplicationNavigator)
'If a user holds more than 1 role they will have to select
'the role they want applied for use throughout the session
If securityPrincipal.Roles.Count > 1 Then applicationController.NavigateTo("SelectRoleView")
applicationController.NavigateTo("ShellView")
Catch ex As Exceptions.InvalidUserNameException
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Invalid User")
Catch ex As Exceptions.UserDisabledException
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "User Disabled")
Catch ex As System.Net.Sockets.SocketException
MsgBox("The xxxxx Server is unavailable, contact the System Administrator.", MsgBoxStyle.Exclamation, "Server Unavailable")
End Try
Else
MsgBox("User not authenticated, the application will terminate.", MsgBoxStyle.Exclamation, "Authentication")
End If
My.Settings.Save()
Application.Exit()
End Sub
End Class
धन्यवाद में आपका पूरा समाधान मिल गया है, लेकिन हमारा ऐप एएसपी.Net नहीं है, केवल नेट। हमारे पास Web.config भी नहीं है जहां इसे कॉन्फ़िगर किया जाना चाहिए – shojtsy
@shotjsy: शायद ऐसा कुछ ऐसा हो सकता है? http://www.codeproject.com/KB/exception/UnhandledExceptionClass.aspx –