简单的.net 中的异常处理

 工作线程中的异常处理（利用me.BeginInvoke 异步调用委托）

 1 '异常处理的委托 
 2 Public Delegate Sub threadWorkerException(ByVal e As Exception)
 3 
 4 '这里可以换成你要处理的具体行为
 5 Sub threadExceptionHandle(ByVal e As Exception)
 6     Me.Label1.Text = "出现了异常" & e.Message & " " & e.GetType.ToString
 7 End Sub
 8 
 9 '开始一个Thread， 进行处理
10 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
11         ' start a threading  
12         Dim aThread As New Thread(AddressOf ThreadingSub)
13         aThread.Start()
14 End Sub
15 
16 ' 线程的具体操作，在里面人为的产生一个Excepion
17 Dim i As Integer = 10
18 Dim j As Integer
19 Try
20     j = Integer.Parse(Me.TextBox1.Text)
21     Debug.WriteLine(i / j)
22     Me.Label1.Text = "success"
23 Catch ex As Exception
24     Me.Invoke(New threadWorkerException(AddressOf threadExceptionHandle), New Object() {ex})
25 End Try
26 
27 

2  使用Application对象中的ThreadException属性可以设置一个delegate来捕获所有未处理的Main UI线呈中出现的异常

 1 Public Sub New()
 2     MyBase.New()
 3     'This call is required by the Windows Form Designer.
 4     InitializeComponent()
 5     '增加全局Exception的处理
 6     AddHandler Application.ThreadException, New System.Threading.ThreadExceptionEventHandler(AddressOf GlobalExceptionHandle)
 7 End Sub
 8 
 9 '全局异常处理函数的细节，在这里你可以、增加自己的处理逻辑    
10 Public Sub GlobalExceptionHandle(ByVal sender As Object, ByVal e As System.Threading.ThreadExceptionEventArgs)
11     MsgBox(e.Exception.Message)
12 End Sub
13 
14 '人为的产生一个异常
15  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
16     Dim i As Integer = 10
17     Dim j As Integer = Integer.Parse(Me.TextBox1.Text)
18     MsgBox(i / j)
19 End Sub
20