Generación manual de excepciones

Además de las excepciones provocadas por errores del programa, VB.NET nos permite la notificación de problemas a través de la creación y envío manual de excepciones. Para ello, en aquel punto de código en el que determinemos que será necesario generar una excepción, instanciaremos un objeto de la clase Exception o alguna de sus clases heredadas, y lo notificaremos mediante la instrucción Throw, como muestra el ejemplo del Código fuente 362.

Public Sub Main()

Dim Valor As Integer

Dim Resultado As Integer

Try

Console.WriteLine("Introducir un número")

Valor = Console.ReadLine()

Resultado = Calcular(Valor)

Console.WriteLine("El resultado es: {0}", Resultado)

Catch oExcep As Exception

' si se produce un error y se genera una

' excepción en la función Calcular(),

' el flujo de la ejecución saltará hasta

' este manipulador de excepciones

Console.WriteLine("Error")

Console.WriteLine(oExcep.Message)

End Try

Console.ReadLine()

End Sub

Public Function Calcular(ByVal Dato As Integer) As Integer

' en esta rutina generamos la excepción si es necesario

Dim Importe As Integer

Dim oExcepcion As Exception

Importe = Dato * 2

If Importe > 100 Then

' si debido a los valores introducidos por el

' usuario, la variable tiene un valor no permitido

' crear una excepción

oExcepcion = New Exception("El importe es incorrecto")

' lanzar la excepción

Throw oExcepcion

End If

' si no se producen errores, devolver el valor calculado

Return Importe

End Function

Código fuente 362

Como vemos en el anterior ejemplo, el esquema de captura y tratamiento de excepciones no es obligatorio utilizarlo exclusivamente cuando se produzcan errores por un funcionamiento incorrecto del programa, sino que podemos emplearlo también para tratar otras situaciones, por ejemplo, cuando el usuario de la aplicación no proporciona los valores adecuados a la misma.