Imports System.Windows.Forms

Imports System.Data

Imports System.Data.SqlClient

Imports System.IO

Public Class clsException

    Inherits System.ApplicationException

    Private _Excecp As Exception   'Simboliza o Exception gerado

    'Montagem do Sub New, servirá para instanciarmos a Classe.

    'E passar o Exception como Parâmetro

    Sub New(ByRef ex As Exception)

    _Excecp = ex

    AvalException(_Excecp)

    End Sub

    Private Sub AvalException(ByVal ex As Exception)

    'Tratamento dos possíveis Exceptions

    'Aqui você pode configurar suas mensagens de erro de acordo com o exception

    If (TypeOf ex Is System.ArgumentOutOfRangeException) Then

    MessageBox.Show(ex.Message, ex.TargetSite.DeclaringType.Name, _

    MessageBoxButtons.OK, MessageBoxIcon.Error)

    Exit Sub

    ElseIf (TypeOf ex Is System.IO.FileLoadException) Then

    MessageBox.Show(ex.Message, ex.TargetSite.DeclaringType.Name, _

      MessageBoxButtons.OK, MessageBoxIcon.Error)

    Exit Sub

    ElseIf (TypeOf ex Is System.IO.FileNotFoundException) Then

    MessageBox.Show(ex.Message, ex.TargetSite.DeclaringType.Name, _

    MessageBoxButtons.OK, MessageBoxIcon.Error)

    Exit Sub

    ElseIf (TypeOf ex Is System.IO.DirectoryNotFoundException) Then

    MessageBox.Show(ex.Message, ex.TargetSite.DeclaringType.Name, _

    MessageBoxButtons.OK, MessageBoxIcon.Error)

    Exit Sub

    ElseIf (TypeOf ex Is System.OverflowException) Then

    MessageBox.Show(ex.Message, ex.TargetSite.DeclaringType.Name, _

    MessageBoxButtons.OK, MessageBoxIcon.Error)

    Exit Sub

    ElseIf (TypeOf ex Is System.StackOverflowException) Then

    MessageBox.Show(ex.Message, ex.TargetSite.DeclaringType.Name, _

    MessageBoxButtons.OK, MessageBoxIcon.Error)

    Exit Sub

    ElseIf (TypeOf ex Is InvalidCastException) Then

    MessageBox.Show(ex.Message, ex.TargetSite.DeclaringType.Name, _

    MessageBoxButtons.OK, MessageBoxIcon.Error)

    Exit Sub

    ElseIf (TypeOf ex Is System.NullReferenceException) Then

    MessageBox.Show(ex.Message, ex.TargetSite.DeclaringType.Name, _

    MessageBoxButtons.OK, MessageBoxIcon.Error)

    Exit Sub

    ElseIf (TypeOf ex Is InvalidOperationException) Then

    MessageBox.Show(ex.Message, ex.TargetSite.DeclaringType.Name, _

    MessageBoxButtons.OK, MessageBoxIcon.Error)

    Exit Sub

    ElseIf (TypeOf ex Is SqlException) Then

    'Erros de SQL

    Dim ex1 As SqlException = ex

    Select Case ex1.Number

    Case 547

    MessageBox.Show(ex.Message, ex.TargetSite.DeclaringType.Name, _

    MessageBoxButtons.OK, MessageBoxIcon.Error)

    Case 208

    MessageBox.Show(ex.Message, ex.TargetSite.DeclaringType.Name, _

      MessageBoxButtons.OK, MessageBoxIcon.Error)

    Case 137

    MessageBox.Show(ex.Message, ex.TargetSite.DeclaringType.Name, _

    MessageBoxButtons.OK, MessageBoxIcon.Error)

    Case 170

      MessageBox.Show(ex.Message, ex.TargetSite.DeclaringType.Name, _

    MessageBoxButtons.OK, MessageBoxIcon.Error)

    Case 207

    MessageBox.Show(ex.Message, ex.TargetSite.DeclaringType.Name, _

      MessageBoxButtons.OK, MessageBoxIcon.Error)

    Case Else

    MessageBox.Show(ex.Message, ex.TargetSite.DeclaringType.Name, _

    MessageBoxButtons.OK, MessageBoxIcon.Error)

    End Select

    Exit Sub

    Else

    'Caso não seja nenhum dos Exceptions declarados

    MessageBox.Show(ex.Message, ex.TargetSite.DeclaringType.Name, _

    MessageBoxButtons.OK, MessageBoxIcon.Error)

    Exit Sub

    End If

    End Sub

End Class

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _

    Handles MyBase.Load

    'Este processo irá gerar um erro

    Dim Conn As SqlConnection

    Dim StrConn As String

    StrConn = "server=sqlCli; initial catalog=Clientes; uid=app; pwd="

    Conn = New SqlConnection

    Conn.ConnectionString = StrConn

    Try

    Conn.Open()

      Catch ex As Exception

    'Passamos o erro para a classe

    Dim excp As TratandoErros.clsException

    excp = New TratandoErros.clsException(ex)

    End Try

    End Sub