Resume – příkaz

Článek
07/04/2024

Po dokončení rutiny zpracování chyb obnoví provádění.

Doporučujeme použít strukturované zpracování výjimek v kódu, kdykoli je to možné, místo použití nestrukturovaného zpracování výjimek a On Error příkazů.Resume Další informace naleznete v tématu Vyzkoušet... Chytit... Příkaz Finally.

Syntaxe

Resume [ Next | line ]

Součástky

Resume
Povinný: Pokud k chybě došlo ve stejném postupu jako obslužná rutina chyby, spuštění se obnoví příkazem, který chybu způsobil. Pokud došlo k chybě volané procedury, provádění se obnoví na příkazu, který naposledy volal z procedury obsahující rutinu zpracování chyb.

Next
Nepovinné. Pokud k chybě došlo ve stejném postupu jako obslužná rutina chyby, spuštění pokračuje příkazem bezprostředně za příkazem, který způsobil chybu. Pokud došlo k chybě ve volané procedurě, provádění pokračuje příkazem bezprostředně za příkazem, který naposledy volal z procedury obsahující rutinu zpracování chyb (nebo On Error Resume Next příkaz).

line
Nepovinné. Provádění se obnoví na řádku zadaném v požadovaném line argumentu. Argument line je popisek řádku nebo číslo řádku a musí být ve stejném postupu jako obslužná rutina chyby.

Poznámky

Poznámka:

Pokud je to možné, doporučujeme v kódu používat strukturované zpracování výjimek místo použití nestrukturovaného zpracování výjimek a On Error Resume příkazů. Další informace naleznete v tématu Vyzkoušet... Chytit... Příkaz Finally.

Pokud použijete Resume příkaz kdekoli jinde než v rutině zpracování chyb, dojde k chybě.

Příkaz Resume nelze použít v žádné procedurě, která obsahuje Try...Catch...Finally příkaz.

Příklad

Tento příklad používá příkaz Resume k ukončení zpracování chyb v postupu a pak pokračovat v provádění s příkazem, který způsobil chybu. Pro ilustraci použití Resume příkazu se vygeneruje číslo chyby 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

Požadavky

Obor názvů: Microsoft.VisualBasic

Sestavení: Visual Basic Runtime Library (v Microsoft.VisualBasic.dll)

Sdílet prostřednictvím