Resume (Instrucción)

Artículo
06/08/2015

Reanuda la ejecución cuando finaliza una rutina de control de errores.

Recomendamos que utilice el control de excepciones estructurado en el código siempre que sea posible, en lugar de utilizar el control no estructurado de excepciones y las instrucciones de On Error y de Resume . Para obtener más información, vea Instrucción Try...Catch...Finally (Visual Basic).

Resume [ Next | line ]

Elementos

Resume
Obligatorio. Si el error se produjo en el mismo procedimiento que el controlador de errores, la ejecución continúa con la instrucción que causó el error. Si se produjo en un procedimiento llamado, la ejecución continúa en la última instrucción que realizó una llamada al exterior del procedimiento que contiene la rutina de control de errores.
Next
Opcional. Si el error se produjo en el mismo procedimiento que el controlador de errores, la ejecución continúa con la instrucción siguiente a la que causó el error. Si el error se produjo en un procedimiento llamado, la ejecución continúa en la instrucción siguiente a la que realizó por última vez la llamada fuera del procedimiento que contiene la rutina de control de errores (o la instrucción On Error Resume Next).
line
Opcional. La ejecución continúa en la línea especificada en el argumento line requerido. El argumento line es una etiqueta de línea o un número de línea, y debe estar en el mismo procedimiento que el controlador de errores.

Comentarios

Nota

Se recomienda usar el control estructurado de excepciones en el código siempre que sea posible, en lugar de utilizar el control no estructurado de excepciones y las instrucciones de On Error y de Resume .Para obtener más información, vea Instrucción Try...Catch...Finally (Visual Basic).

Si se utiliza una instrucción Resume fuera de una rutina de controlador de errores, se producirá un error.

La instrucción Resume no se puede utilizar en un procedimiento que contenga una instrucción Try...Catch...Finally.

Ejemplo

En este ejemplo se utiliza la instrucción Resume para finalizar el controlador de errores en un procedimiento y, a continuación, reanudar la ejecución con la instrucción que provocó el error. Para ilustrar el uso de la instrucción Resume se genera el error número 55.

Sub ResumeStatementDemo()
  On Error GoTo ErrorHandler   ' Enable error-handling routine.
  Dim x As Integer = 32
  Dim y As Integer = 0
  Dim z As Integer
  z = x / y   ' Creates a divide by zero error
  Exit Sub   ' Exit Sub to avoid error handler.
ErrorHandler:     ' Error-handling routine.
  Select Case Err.Number   ' Evaluate error number.
      Case 6   ' "Divide by zero" error.
        y = 1 ' Sets the value of y to 1 and tries the calculation again.
      Case Else 
        ' Handle other situations here.... 
  End Select 
  Resume   ' Resume execution at same line
  ' that caused the error. 
End Sub