Declaração Resume
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
Requisitos
Namespace: Microsoft.VisualBasic
Assembly: Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)