Você pode adicionar um event handler para evento AppDomain.UnhandledException
, esse evento será acionado quando uma exceção não é detectada/tratada.
Ele permite que o aplicativo registre informações sobre a exceção
antes do manipulador padrão do sistema relatar a exceção para o
usuário e encerrar o aplicativo. Se informações suficientes sobre o
estado da aplicação está disponível, outras medidas podem ser tomadas
- como salvar os dados do programa para a recuperação posterior.
Aconselha-se precaução, porque os dados do programa podem ser
corrompidos quando exceções não são tratadas.
Exemplo retirado daqui em C#.
Adicione uma linha para o método principal (por padrão no arquivo Program.cs em um novo aplicativo do Windows):
namespace MyApp
{
static class Program
{
/// <summary>
/// The main entry point for the application.
/// </summary>
[STAThread]
static void Main()
{
AppDomain.CurrentDomain.UnhandledException += new UnhandledExceptionEventHandler(CurrentDomain_UnhandledException);
Application.EnableVisualStyles();
Application.SetCompatibleTextRenderingDefault(false);
Application.Run(new Form1());
}
}
}
Na linha AppDomain.CurrentDomain...
está referenciando uma função que ainda não existe, portanto, criaremos ela:
static void CurrentDomain_UnhandledException (object sender, UnhandledExceptionEventArgs e)
{
try
{
Exception ex = (Exception)e.ExceptionObject;
MessageBox.Show("Erro! Entre em contato com os desenvolvedores com a seguinte"
+ " informação:\n\n" + ex.Message + ex.StackTrace,
"Fatal Error", MessageBoxButtons.OK, MessageBoxIcon.Stop);
}
finally
{
Application.Exit();
}
}
Agora suas exceções não tratadas estão sendo mostrados em um diálogo agradável, você pode fazer outras coisas por aqui - como registrar a exceção, ou tentar suavizar o golpe do acidente, você não pode no entanto, manter o programa rodando após um crash, não há uma maneira de pegar a exceção a esta altura e deixar o programa funcionando.
Em VB.NET deve ficar semelhante a isto:
Module MyApp
Sub Main()
Dim currentDomain As AppDomain = AppDomain.CurrentDomain
AddHandler currentDomain.UnhandledException, AddressOf MyHandler
Throw New Exception("Foo")
End Sub
Sub MyHandler(sender As Object, args As UnhandledExceptionEventArgs)
Dim e As Exception = DirectCast(args.ExceptionObject, Exception)
Console.WriteLine("Erro! Entre em contato com os desenvolvedores com a seguinte : " + e.Message)
' Fazer alguma coisa aqui com a exceção não tratada.
End Sub
End MyApp