Instrução Resume

Artigo
02/25/2013

Continua a execução após a conclusão de uma rotina de tratamento de erros.

Sugerimos que você use manipulação de exceção estruturada no seu código sempre que possível, em vez de usar o tratamento de exceção não estruturada e o On Error e Resume instruções.Para obter mais informações, consulte Try...Catch...Instrução finally (Visual Basic).

Resume [ Next | line ]

Partes

Resume
Obrigatório.Se o erro ocorreu no mesmo procedimento como o manipulador de erro, a execução reinicia com a instrução que causou o erro.Se o erro ocorreu em um procedimento chamado, a execução reinicia com a instrução que a última chamada fora do procedimento que contém a rotina de tratamento de erros.
Next
Opcional.Se o erro ocorreu no mesmo procedimento como o manipulador de erro, a execução reinicia com a declaração imediatamente seguinte a instrução que causou o erro.Se o erro ocorreu em um procedimento chamado, a execução reinicia com a declaração imediatamente seguinte a instrução que a última chamada fora do procedimento que contém a rotina de tratamento de erros (ou On Error Resume Next instrução).
line
Opcional.A execução reinicia na linha especificada nas caixas necessário line argumento.O line argumento é um rótulo de linha ou o número da linha e deve estar no mesmo procedimento que o manipulador de erro.

Comentários

Observação
Recomendamos que você use manipulação de exceção estruturada no seu código sempre que possível, em vez de usar o tratamento de exceção não estruturada e o On Error e Resume instruções.Para obter mais informações, consulte Try...Catch...Instrução finally (Visual Basic).

Se você usar um Resume instrução em qualquer lugar diferente em uma rotina de tratamento de erros, um erro ocorre.

O Resume instrução não pode ser usada em qualquer procedimento que contém um Try...Catch...Finally instrução.

Exemplo

Este exemplo usa a Resume a instrução para terminar em um procedimento de tratamento de erros e, em seguida, continuar a execução com a instrução que causou o erro.O número de erro 55 é gerado para ilustrar o uso da Resume instrução.

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