Koodit: VB.NET: Rakenteellinen virheenkäsittely

' poikeamien erittely koodin sisällä
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim a As Integer = 0
        Dim c As Integer = 1
        Dim b(10) As Integer
        Dim strP As String = "QWERTY"
        Try
            'valitse näistä vain yksivirhe
            'c = strP ' väärä muuttujan tyyppi
            'c = c + 1 : a = c \ a ' oma sääntö:kakkonen ei salittu jakaa nollalla
            'a = c \ a ' jako nollalla virhe
            'b(11) = 9 ' indeksi liian suuri
            c = Math.Sqrt(-1) ' ei pysty laskemaan tätä
        Catch ex As Exception When c = 2
            MsgBox(ex.Message, , "Kakkosen jako nollalla on raskauttavaa")
        Catch ex As DivideByZeroException
            MsgBox(ex.Message, , "Jako nollalla")
        Catch ex As ArithmeticException
            MsgBox(ex.Message, , "Laskenta ei onnistu")
        Catch ex As IndexOutOfRangeException
            MsgBox(ex.Message, , "Taulukon indeksi turhan iso")
        Catch ex As InvalidCastException
            MsgBox(ex.Message, , "Väärä muuttujan tyyppi")
        Catch ex As Exception ' loput tyypit
            MsgBox(ex.Message)
        End Try
    End Sub
' form1, button3
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ' näyttää formin 2
        Dim uusiFormi As New Form2
        uusiFormi.Show()
    End Sub

Module Poikkeusmoduli
    Public Class PoikkeamanKäsittely
        Inherits System.ApplicationException
        Private _syy As String
        ' kolme tapaa muodostaa objekti
        Public Sub New() 'ei parametrejä
        End Sub
        Public Sub New(ByVal Viesti As String) ' oma viesti kyytiin
            MyBase.New(Viesti)
            _syy = Viesti
        End Sub
        Public Sub New(ByVal Viesti As String, ByVal SisäinenPoikkeama As Exception)
            MyBase.New(Viesti, SisäinenPoikkeama)
            Dim oTyyppiVirhe As New InvalidCastException
            Dim oYlivuotoVirhe As New OverflowException
            Dim oLaskentaVirhe As New ArithmeticException
            Dim oIndexiVirhe As New IndexOutOfRangeException
            Dim oJakoNollallaVirhe As New DivideByZeroException
            _syy = SisäinenPoikkeama.Message
            If SisäinenPoikkeama.GetType Is oTyyppiVirhe.GetType Then _syy = "Käytetty väärän tyyppistä muuttujaa"
            If SisäinenPoikkeama.GetType Is oLaskentaVirhe.GetType Then _syy = "Laskentaa ei voi suorittaa"
            If SisäinenPoikkeama.GetType Is oYlivuotoVirhe.GetType Then _syy = "Ylivuoto, laskentaa ei voi suorittaa"
            If SisäinenPoikkeama.GetType Is oIndexiVirhe.GetType Then _syy = "Indeksi turhan iso"
            If SisäinenPoikkeama.GetType Is oJakoNollallaVirhe.GetType Then _syy = "Jako nollalla"
        End Sub
        Public Property Syy()
            Get
                Syy = _syy
            End Get
            Set(ByVal Value)
                _syy = Syy
            End Set
        End Property
    End Class

End Module

'esimerkki oman poikkeamankäsittelyn soveltamisesta
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer = 0
        Dim c As Integer = 1
        Dim b(10) As Integer
        Dim strP As String = "QWERTY"
        Try
            'valitse näistä vain yksivirhe
            'c = strP ' väärä muuttujan tyyppi
            'a = c \ a ' jako nollalla virhe
            'b(11) = 9 ' indeksi liian suuri
            c = Math.Sqrt(-1) ' ei pysty laskemaan tätä, ylivuoto
        Catch ex As Exception
            Dim omaPoikkeama As New PoikkeamanKäsittely("Virhe ohjelmassa", ex)
            MsgBox(omaPoikkeama.Syy, , omaPoikkeama.Message)
            'Throw omaPoikkeama ' jos halutaan antaa virhe eteenpäin esim kehitysvaiheessa
        End Try
    End Sub
End Class