Creación de errores con el objeto Err

El método Raise( ), del objeto Err, nos permite generar nuestros propios errores, que se comportarán igual que los errores del sistema. Veamos un ejemplo en el Código fuente 366.

Public Sub Main()

On Error Goto ControlErrores

Dim iValor As Integer

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

iValor = Console.ReadLine()

If iValor > 500 Then

Err.Raise(5100, , "El número debe ser menor de 500")

End If

Console.WriteLine("Esta línea se ejecuta después de un posible error")

Console.ReadLine()

Exit Sub

' ------------

' etiqueta de control de errores

ControlErrores:

Console.WriteLine("Error: {0} - {1}", Err.Number, Err.Description)

Console.ReadLine()

Resume Next

End Sub

Código fuente 366