Saját hibakezelő osztály készítése és használata

Az új hibakezelő osztályunk NewException névvel kerül létrehozásra az Exception osztályból származtatva. Mivel példánk nem valós helyzetet tükröz és célja nem is egy valós helyzet bemutatása, hanem egy saját hibakezelő osztály létrehozása, így az új osztályban tárolt hibakódot most egy véletlen szám határozza meg a példa egyszerűségének kedvéért.

Ezt a számot az osztály konstruktora hozza létre és tárolja az FErrorCode változóba, melyet kívülről az ErrorCode property-n keresztül leszünk képesek kiolvasni.

Public Class NewException
  Inherits Exception
  Private FErrorCode As Integer
  Public Sub New()
    Dim r As New Random()
    FErrorCode = r.Next(Int32.MaxValue)
  End Sub 'New
  Public ReadOnly Property ErrorCode() As Integer
    Get
      Return FErrorCode
    End Get
  End Property
End Class 'NewException

Készítsünk most egy függvényt, melyben biztos, hogy létrejön egy kivétel, mely természetesen a NewException lesz. Ennek legegyszerűbb módja, ha azt mi magunk generáljuk a throw utasítás segítségével.

  Private Sub TestFunction()
    Throw New NewException()
  End Sub 'TestFunction

Hívjuk most meg ezt a függvény és kezeljük le azt az esetet, hogy hiba történt. Ehhez természetesen egy try - catch blokkot használunk. Amikor a hiba bekövetkezik, akkor a hibakódot egy label szövegén jelenítjük meg.

  Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button1.Click
    Try
      TestFunction()
    Catch ex As NewException
      label1.Text = "ErrorCode: " + ex.ErrorCode.ToString()
    Catch ex As Exception
      label1.Text = ex.Message
    End Try
  End Sub