Istruzione Resume

Articolo
09/12/2008

Aggiornamento: novembre 2007

Consente di riprendere l'esecuzione al termine di una routine di gestione degli errori.

Resume [ Next | line ]

Parti

Resume
Obbligatorio. Se l'errore si è verificato nella stessa routine del gestore errori, l'esecuzione riprenderà dall'istruzione che ha causato l'errore. Se l'errore si è verificato in una routine chiamata, l'esecuzione riprenderà dall'ultima istruzione che ha richiamato la routine di gestione degli errori.
Next
Facoltativo. Se l'errore si è verificato nella stessa routine del gestore errori, l'esecuzione riprenderà dall'istruzione immediatamente successiva a quella che ha causato l'errore. Se l'errore si è verificato in una routine chiamata, l'esecuzione riprenderà dall'istruzione immediatamente successiva all'ultima istruzione che ha richiamato la routine di gestione degli errori (o istruzione On Error Resume Next).
line
Facoltativo. L'esecuzione riprende dalla riga specificata nell'argomento obbligatorio line. L'argomento line corrisponde a un'etichetta o un numero di riga e deve trovarsi nella stessa routine del gestore errori.

Note

Se si utilizza un'istruzione Resume in un contesto diverso da una routine di gestione degli errori, verrà generato un errore.

Non è possibile utilizzare l'istruzione Resume in alcuna routine contenente l'istruzione Try...Catch...Finally.

Esempio

In questo esempio viene utilizzata l'istruzione Resume per terminare la gestione degli errori in una routine e quindi riprendere l'esecuzione dall'istruzione che ha determinato l'errore. Per illustrare l'utilizzo dell'istruzione Resume viene generato il numero di errore 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