9) Обработка исключений VB.Net

Синтаксис Try / Catch

Try
   [ try_Statement(s) ]
   [ Exit Try ]
[ Catch [ exception_name [ As type ] ] [ When expression ]
   [ catch_Statement(s) ]
   [ Exit Try ] ]
[ Catch ... ]
[ Finally
   [ finally_Statement(s) ] ]
End Try

Пример для обработки исключений

Module Module1
    Sub divisionFunction(ByVal n1 As Integer, ByVal n2 As Integer)
        Dim answer As Integer
        Try
            answer = n1 \ n2
        Catch ex As DivideByZeroException
            Console.WriteLine("Exception: {0}", ex)
        Finally
            Console.WriteLine("Answer is: {0}", answer)
        End Try
    End Sub
    Sub Main()
        divisionFunction(4, 0)
        Console.ReadKey()
    End Sub

End Module

Вот скриншот кода:

Объяснение кода:

1. Создание модуля с именем Module1.
2. Создание подпроцедуры с именем DivisionFunction с двумя целочисленными аргументами n1 и n2. ByVal — это ключевое слово VB.NET, утверждающее, что значения аргументов будут передаваться по значению.
3. Создание целочисленной переменной с именем answer.
4. Начало блока Try / Catch. Мы должны окружить код, который, как мы подозреваем, может вызвать исключение в этом блоке.
5. Выполнение операции деления между значениями переменных n1 и n2. Результат операции деления присваивается переменной ответа. Этот код может вызвать исключение, например, когда мы делим число на ноль, поэтому мы окружили его блоками Try / Catch.
6. Перехват исключения с именем DivideByZeroException и назначение созданного сообщения об исключении для ex.
7. Печать некоторого текста на консоли, чтобы уведомить пользователя о типе / имени возникшего исключения.
8. Последний блок. Это будет выполнено независимо от того, поймано исключение или нет.
9. Распечатка некоторого текста на консоли, показывающего результат операции деления.
10. Конец блока Try, то есть конец кода обработки ошибок.
11. Конец подпроцедуры.
12. Начало основной подпроцедуры.
13. Вызов / вызов подпрограммы DivisionFunction. Значения двух целочисленных аргументов передаются здесь. Значение n1 = 4 и n2 = 0. Это означает, что операция деления будет 4 \ 0, то есть n1 \ n2.
14. Приостановка окна консоли в ожидании действий пользователя по его закрытию.
15. Конец основной подпроцедуры.
16. Конец модуля.

Определяемые пользователем исключения

Module Module1

    Public Class HeightIsZeroException : Inherits ApplicationException
        Public Sub New(ByVal text As String)
            MyBase.New(text)
        End Sub
    End Class
    Public Class Height
        Dim height As Integer = 0
        Sub showHeight()
            If (height = 0) Then
                Throw (New HeightIsZeroException("Zero Height found"))
            Else
                Console.WriteLine("Height is: {0}", height)
            End If
        End Sub
    End Class
    Sub Main()
        Dim hght As Height = New Height()
        Try
            hght.showHeight()
        Catch ex As HeightIsZeroException
            Console.WriteLine("HeightIsZeroException: {0}", ex.Message)
        End Try
        Console.ReadKey()
    End Sub

End Module

Вот скриншот кода:

Объяснение кода:

1. Создание модуля с именем Module1.
2. Создание класса исключения с именем HeightIsZeroException. Класс наследует весь класс ApplicationException.
3. Создание подпроцедуры с именем New. Это займет один строковый аргумент с именем text.
4. Вызов конструктора базового класса и передача ему вышеуказанного аргумента.
5. Конец Новой подпроцедуры.
6. Конец класса HeightIsZeroException.
7. Создание класса с именем Высота. Его модификатор публичного доступа — Public, означающий, что он будет общедоступным.
8. Создание целочисленной переменной с именем Height и инициализация ее значения 0.
9. Создание подпроцедуры с именем showHeight ().
10. Проверка, когда значение переменной Height равно 0. Мы использовали условие If… Then.
11. Бросить исключение HeightIsZeroException, если указанное выше условие истинно. Сообщение «Найдена нулевая высота» будет отображаться при выдаче этого исключения.
12. Другая часть, которая будет выполнена, если условие If не выполнено.
13. Сообщение для печати на консоли с указанием высоты, когда она не равна 0.
14. Конец условия If.
15. Конец подпроцедуры showHeight ().
16. Конец класса Высота.
17. Начало основной подпроцедуры.
18. Создание объекта с именем Высота в качестве экземпляра класса Высота.
19. Начало блока обработки исключений.
20. Вызов подпрограммы showHeight (), определенной в классе Height. Мы использовали объект этого класса для доступа к этому методу. Эта строка может привести к исключению. Поэтому мы окружили его кодом обработки исключений.
21. Перехват исключительной ситуации HeightIsZeroException в качестве объекта ex в случае его возникновения.
22. Сообщение для печати на консоли, когда перехватывается высотаIsZeroException.
23. Конец блока обработки исключений.
24. Приостановите окно консоли, ожидая действий пользователя, чтобы закрыть его.
25. Конец основной подпроцедуры.
26. Конец модуля.

Бросать предметы

Module Module1

    Sub Main()
        Try
            Throw New ApplicationException("Throwing a custom exception")
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            Console.WriteLine("The Finally Block")
        End Try
        Console.ReadKey()
    End Sub


End Module