Declaração Resume

Artigo
08/08/2011

Continua a execução após um erro-rotina de manipulação está concluída.

Resume [ Next | line ]

Parts

Resume
Required. Se o erro ocorreu no mesmo procedimento como o manipulador de erro , a execução reinicia com a demonstrativo que causou o erro. Se o erro ocorreu em um procedimentode chamada, a execução reinicia na demonstrativo que última chamada de procedimento que contém o erro-rotina de manipulação.
Next
Optional. Se o erro ocorreu no mesmo procedimento como o manipulador de erro , a execução reinicia com a demonstrativo imediatamente seguinte a demonstrativo que causou o erro. Se o erro ocorreu em um procedimentode chamada, a execução reinicia com a demonstrativo imediatamente seguinte a demonstrativo que última chamada de procedimento que contém o erro-rotina de manipulação (ou On Error Resume Next demonstrativo).
line
Optional. A execução reinicia na linha especificada nas caixas necessário line argumento. O lineargumento é umrótulo de linhaou o número de linha e deve estar no mesmo procedimento como o manipulador de erro .

Comentários

Se você usar um Resume demonstrativo em qualquer lugar diferente em um erro-um erro de rotina de manipulação ocorre.

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

Exemplo

Este exemplo usa a Resumededemonstrativo para finalizar a um procedimento de tratamento de erro e continuar a execução com a demonstrativo que causou o erro. O número de erro 55 é gerado para ilustrar o uso da Resumededemonstrativo.

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