Resume — Instrukcja

Wznawia wykonywanie po zakończeniu procedury obsługi błędów.

Zalecamy używanie obsługi wyjątków strukturalnych w kodzie, jeśli jest to możliwe, zamiast używania obsługi wyjątków bez struktury i On Error instrukcji i Resume . Aby uzyskać więcej informacji, zobacz Try... Łapać... Finally, instrukcja.

Składnia

Resume [ Next | line ]  

generatora

Resume
Wymagany. Jeśli błąd wystąpił w tej samej procedurze co procedura obsługi błędów, wykonanie zostanie wznowione z instrukcją, która spowodowała błąd. Jeśli błąd wystąpił w wywoływanej procedurze, wykonanie zostanie wznowione w instrukcji, która ostatnio wywołała procedurę zawierającą procedurę obsługi błędów.

Next
Opcjonalny. Jeśli błąd wystąpił w tej samej procedurze co procedura obsługi błędów, wykonanie zostanie wznowione z instrukcją bezpośrednio po instrukcji, która spowodowała błąd. Jeśli błąd wystąpił w wywoływanej procedurze, wykonanie zostanie wznowione z instrukcją bezpośrednio po instrukcji, która ostatnio wywołała procedurę zawierającą procedurę obsługi błędów (lub On Error Resume Next instrukcję).

line
Opcjonalny. Wykonanie jest wznawiane w wierszu określonym w wymaganym line argumencie. Argument line jest etykietą wiersza lub numerem wiersza i musi znajdować się w tej samej procedurze co procedura obsługi błędów.

Uwagi

Jeśli używasz instrukcji Resume w dowolnym miejscu innym niż w procedurze obsługi błędów, wystąpi błąd.

Nie Resume można użyć instrukcji w żadnej procedurze zawierającej instrukcję Try...Catch...Finally .

Przykład

W tym przykładzie użyto Resume instrukcji , aby zakończyć obsługę błędów w procedurze, a następnie wznowić wykonywanie za pomocą instrukcji, która spowodowała błąd. Wygenerowano numer błędu 55 w celu zilustrowania Resume użycia instrukcji .

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

Wymagania

Przestrzeń nazw: Microsoft.VisualBasic

Zestaw: Biblioteka środowiska uruchomieniowego Visual Basic (w Microsoft.VisualBasic.dll)

Zobacz też

• Try...Catch...Finally, instrukcja
• Error, instrukcja
• On Error, instrukcja