Declaração Resume

Artigo
08/25/2010

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

Resume [ Next | line ]

Partes

Resume
Obrigatório.Se o erro ocorreu no mesmo procedimento sistema autônomo o manipulador de erro continua em execução com a demonstrativo que causou o erro.Se o erro ocorreu em um procedimento chamado, a execução reinicia na demonstrativo chamado pela última vez para fora do procedimento que contém a rotina de tratamento de erros.
Next
Opcional.Se o erro ocorreu no mesmo procedimento sistema autônomo o manipulador de erro continua em execução com a demonstrativo imediatamente seguinte a demonstrativo que causou o erro.Se o erro ocorreu em um procedimento chamado, a execução reinicia com a demonstrativo imediatamente seguinte a demonstrativo chamado pela última vez para fora do procedimento que contém a rotina de tratamento de erros (ou On Error Resume Next demonstrativo).
line
Opcional.A execução reinicia na linha especificada no necessário line argumento. The line argumento é um número de linha ou rótulo de linha e deve estar no mesmo procedimento que o identificador de erro.

Comentários

Se você usar um Resume demonstrativo em qualquer local diferente em uma rotina de tratamento de erros, ocorrerá um erro.

The Resume demonstrativo não pode ser usada em qualquer procedimento que contém um Try...Catch...Finally demonstrativo.

Exemplo

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

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