Resume — Instrukcja

Artykuł
06/08/2015

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

Sugerujemy, aby użyć structured exception handling w kodzie w każdym przypadku, gdy jest to możliwe, zamiast przy użyciu obsługi wyjątków niestrukturalnych i On Error i Resume instrukcji.Aby uzyskać więcej informacji, zobacz Try...Catch...Finally — Instrukcja (Visual Basic).

Resume [ Next | line ]

Części

Resume
Wymagane.Jeśli błąd wystąpił w tej samej procedury jak narzędzia obsługi błędów, wykonanie wznawia instrukcją, która spowodowała błąd.Jeśli wystąpił błąd w wywołana procedury, wykonanie wznawia działanie w instrukcja, która ostatnio wywołana z procedury, zawierające procedury obsługi błędów.
Next
Opcjonalne.Jeśli wystąpił błąd w tej samej procedury jak narzędzia obsługi błędów, wykonanie wznawia działanie przy użyciu instrukcji, niezwłocznie po instrukcji, który spowodował błąd.Jeśli wystąpił błąd w wywołana procedury, wykonanie wznawia instrukcją natychmiast po instrukcji, która ostatnio wywołana z procedury, zawierające procedury obsługi błędów (lub On Error Resume Next instrukcji).
line
Opcjonalne.Wykonanie wznawia wiersza określonego w wymaganych line argument.line Argument jest etykietą wiersza lub numer wiersza i musi być w tej samej procedury co obsługi błędów.

Uwagi

[!UWAGA]

Zalecane użycie structured exception handling w kodzie w każdym przypadku, gdy jest to możliwe, zamiast przy użyciu obsługi wyjątków niestrukturalnych i On Error i Resume instrukcji.Aby uzyskać więcej informacji, zobacz Try...Catch...Finally — Instrukcja (Visual Basic).

Jeśli korzystasz z Resume gdziekolwiek innych niż procedury obsługi błędów, błąd występuje instrukcja.

Resume Nie można użyć instrukcji w jakiejkolwiek procedury, która zawiera Try...Catch...Finally instrukcji.

Przykład

W tym przykładzie użyto Resume instrukcji, aby zakończyć obsługi błędów w procedurze, a następnie wznowić wykonywanie instrukcji, która spowodowała błąd.Numer błędu 55 jest generowane w celu zilustrowania wykorzystanie Resume 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