Err (Objeto, Visual Basic)

Artículo
10/07/2008

Actualización: noviembre 2007

Contiene información acerca de los errores en tiempo de ejecución.

Comentarios

Las propiedades del objeto Err las establece el generador de un error (Visual Basic, un objeto o el programador).

Cuando se produce un error en tiempo de ejecución, las propiedades del objeto Err se llenan con información que identifica el error de forma única y que se puede usar para controlar u obtener más información sobre el error. Para generar un error en tiempo de ejecución en el código, utilice el método Raise.

Las propiedades del objeto Err se restablecen en valores cero o en cadenas de longitud cero ("") después de una instrucción Exit Sub, Exit Function, Exit Property o Resume Next situada en una rutina de control de errores. Si se usa cualquier forma de la instrucción Resume fuera de una rutina de control de errores, no se restablecerán las propiedades del objeto Err. Para restablecer Err explícitamente, se puede utilizar el método Clear.

Use el método Raise, en vez de la instrucción Error, para generar errores en tiempo de ejecución para errores del sistema y módulos de clase. La decisión de usar el método Raise en otro tipo de código depende de la riqueza de información que desee devolver.

El objeto Err es un objeto intrínseco que tiene ámbito global. Por lo tanto, no es necesario crear una instancia del objeto en el código.

Nota:
También, puede usar ErrorToString (Función) para buscar el mensaje de error que corresponde a un número de error determinado.

Ejemplo

En este ejemplo se utilizan las propiedades del objeto Err para construir un cuadro de diálogo de mensajes de error. Tenga presente que si usa primero el método Clear, cuando genere un error de Visual Basic con el método Raise, los valores predeterminados de Visual Basic pasarán a ser las propiedades del objeto Err. La propiedad Description devuelve una cadena que describe el error.

Dim Msg As String
' If an error occurs, construct an error message.
On Error Resume Next   ' Defer error handling.
Err.Clear()
Err.Raise(6)   ' Generate an "Overflow" error.
' Check for error, then show message.
If Err.Number <> 0 Then
  Msg = "Error # " & Str(Err.Number) & " was generated by " _
      & Err.Source & ControlChars.CrLf & Err.Description
  MsgBox(Msg, MsgBoxStyle.Information, "Error")
End If