Bonnie.
Thank you for your help! Viv pointed me in the right direction with explaining how to use the ApplicationEvent.vb - which works great for me.
Thank you for all your help!
>Hi Gunnar,
>
>Sometimes VB code looks foreign to me. <g> Anyway, what you posted looks a little different than the code I've used. Here's mine, but it's in C# ... sorry. It works, so maybe you can tweak it into VB and see if it's any more useful to you.
>
>
>// in the Main:
>//Creates an instance of the methods that will handle the exception.
>CustomExceptionHandler eh = new CustomExceptionHandler();
>
>//Adds the event handler to to the event.
>Application.ThreadException += new ThreadExceptionEventHandler(eh.OnThreadException);
>Application.SetUnhandledExceptionMode(UnhandledExceptionMode.CatchException);
>
>// runs the main form
>Application.Run(new Form1());
>
>
>// then the custom exception handling class
>internal class CustomExceptionHandler
>{
> // Handles the exception event.
> public void OnThreadException(object sender, ThreadExceptionEventArgs t)
> {
> DialogResult result = DialogResult.Cancel;
> try
> {
> result = this.ShowThreadExceptionDialog(t.Exception);
> }
> catch
> {
> try
> {
> MessageBox.Show("Fatal Error", "Fatal Error", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Stop);
> }
> finally
> {
> Application.Exit();
> }
> }
>
> // Exits the program when the user clicks Abort.
> if (result == DialogResult.Abort)
> Application.Exit();
> }
>
> // Creates the error message and displays it.
> private DialogResult ShowThreadExceptionDialog(Exception e)
> {
> string errorMsg = "An error occurred please contact the adminstrator with the following information:\n\n";
> errorMsg = errorMsg + e.Message + "\n\nStack Trace:\n" + e.StackTrace;
> return MessageBox.Show(errorMsg, "Application Error", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Stop);
> }
>}
>>
>Hope it helps ...
>
>~~Bonnie
>
>
>
>
>
>>I am trying to add an exception handler to my vb.net WinApp - and as usual run into to some problems :-(
>>
>>From my best friend Google I pieced some code together which should accomplish this :
>>Friend Class AppMgr
>> <STAThread()> _
>> Shared Sub Main()
>> ''The 2 event handlers
>> ''add an unhandled exceptions handler
>> Dim currentDomain As AppDomain = AppDomain.CurrentDomain
>> 'for regular unhandled stuff
>> AddHandler currentDomain.UnhandledException, AddressOf MYExceptionHandler
>> 'for threads behind forms
>> AddHandler Application.ThreadException, AddressOf MYThreadHandler
>>
>> Dim frm1 As Form
>> frm1 = New DocProcess_Main()
>> Application.Run(frm1)
>> End Sub
>>#Region "Exeption Handler"
>> Shared Sub MYExceptionHandler(ByVal sender As Object, ByVal e As UnhandledExceptionEventArgs)
>> Dim EX As Exception
>> EX = e.ExceptionObject
>> 'Console.WriteLine(EX.StackTrace)
>> DisplayError(EX)
>> End Sub
>> Shared Sub MYThreadHandler(ByVal sender As Object, ByVal e As Threading.ThreadExceptionEventArgs)
>> 'Console.WriteLine(e.Exception.StackTrace)
>> DisplayError(e.Exception)
>> End Sub
>> Shared Sub DisplayError(ByVal ex As Exception)
>> Dim errorMessage As String = ("Unhandled Exception:" + vbLf + vbLf + ex.Message + vbLf + vbLf + ex.GetType.ToString + vbLf + vbLf + "Stack Trace:" + vbLf) + ex.StackTrace
>> MessageBox.Show(errorMessage, "DMS Application Error", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.[Stop])
>> MessageBox.Show(ex.ToString, "DMS Application Error", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.[Stop])
>> End Sub
>>#End Region
>>End Class
>>
>>Public Class DocProcess_Main
>> Inherits System.Windows.Forms.Form
>> ...
>> ...
>>End Class>>The error I currently get :
>>
>>Could not find any resources appropriate for the specified culture or the neutral culture. Make sure "WindowsApplication1.DocProcess_Main.resources" was correctly embedded or linked into assembly "DMS DataEntry" at compile time, or that all the satellite assemblies required are loadable and fully signed.
>>
>>My problem: I don't even know if I implemented the code correctly?
>>
>>Any suggestions are great appreciated!
>>
>>Thanks!
