Met exception filtering bijvoorbeeld:
Code:
Public Class RobBosException
Inherits Exception
Public Sub New(ByVal message As String)
MyBase.New(message)
End Sub
End Class
Private Sub SendMail()
Static r As New Random
Select Case r.Next(3)
Case 0
Throw New RobBosException("Insert disk in A:")
Case 1
Dim ex As New InvalidOperationException( _
"Hola, dit mag niet")
ex.Data("Nummer") = 42
ex.Data("From") = "Rob Bos"
Throw ex
Case Else
Throw New Exception( _
"Error 2000: This is not an error")
End Select
End Sub
Private Sub test()
Try
SendMail()
Catch ex As RobBosException
Label1.Text = ex.GetType.Name + "<br>" + ex.Message
Catch ex As InvalidOperationException
Label1.Text = String.Format( _
"Error {0} from {1} <br>Message: {2}", _
ex.Data("Nummer"), ex.Data("From"), ex.Message)
Catch ex As Exception
Label1.Text = ex.Message
End Try
End Sub
Bookmarks