Establecer una condición para un manipulador de excepciones - III

• Añadir un manipulador de excepciones genérico. Con esto evitaremos el mensaje de error no controlado, generado por el IDE. Si por ejemplo, además de las operaciones con el tipo Byte, nos encontramos manipulando fechas, podremos capturar todas las excepciones producidas. Veamos este caso en el Código fuente 358.

Public Sub Main()

Dim byMiNum As Byte

Dim dtFecha As Date

Dim dtFHActual As Date

' obtener la fecha actual

dtFHActual = System.DateTime.Today()

Try

' comienza el control de errores

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

' si introducimos un número no incluido

' en el rango de Byte, según el mes actual iremos

' a uno de los manipuladores de excepción existentes

byMiNum = Console.ReadLine()

' si introducimos un valor incorrecto para la fecha,

' iremos al controlador de errores genérico

Console.WriteLine("Introducir una fecha")

dtFecha = Console.ReadLine()

Catch oExcep As OverflowException When (dtFHActual.Month = 3)

' manipulador de excepciones sólo

' cuando las excepciones de desbordamiento

' se produzcan en el mes de Marzo

Console.WriteLine("El número introducido " & _

"no se encuentra en el rango adecuado")

Catch oExcep As Exception

' manipulador genérico de excepciones

Console.WriteLine("Se ha producido un error")

Finally

Console.WriteLine("El controlador de errores ha finalizado")

End Try

Console.ReadLine()

End Sub

Código fuente 358