Resume – příkaz

Obnoví provádění po dokončení rutiny zpracování chyb.

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

Syntax

Resume [ Next | line ]  

Součásti

Resume
Povinná hodnota. Pokud k chybě došlo ve stejném postupu jako obslužná rutina chyb, spuštění pokračuje s příkazem , který chybu způsobil. Pokud k chybě došlo v zvané proceduře, provádění pokračuje v příkazu, který byl naposledy vyvolána z procedury obsahující rutinu zpracování chyb.

Next
Nepovinný parametr. Pokud k chybě došlo ve stejném postupu jako obslužná rutina chyb, provádění pokračuje s příkazem bezprostředně za příkazem, který chybu způsobil. Pokud k chybě došlo v zvané proceduře, provádění pokračuje s příkazem bezprostředně za příkazem, který naposledy vyvolal proceduru obsahující rutinu zpracování chyb On Error Resume Next (nebo příkaz ).

line
Nepovinný parametr. Provádění pokračuje na řádku určeném v požadovaném line argumentu. Argument je popisek řádku nebo číslo řádku a musí být ve stejném postupu jako line obslužná rutina chyb.

Poznámky

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

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

Příklad

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

Viz také

• Try...Catch....Finally – příkaz
• Error – příkaz
• On Error – příkaz