Cv-instruktion

Återupptar körningen när en felhanteringsrutin har slutförts.

Vi rekommenderar att du använder strukturerad undantagshantering i koden när det är möjligt, i stället för att använda ostrukturerad undantagshantering och On Error - Resume instruktioner. Mer information finns i Prova... Fånga... Slutligen -instruktion.

Syntax

Resume [ Next | line ]  

Delar

Resume
Obligatoriskt. Om felet inträffade i samma procedur som felhanteraren återupptas körningen med instruktionen som orsakade felet. Om felet inträffade i en anropad procedur återupptas körningen vid instruktionen som senast anropades i proceduren som innehåller felhanteringsrutinen.

Next
Valfritt. Om felet inträffade i samma procedur som felhanteraren återupptas körningen med instruktionen omedelbart efter instruktionen som orsakade felet. Om felet inträffade i en anropad procedur återupptas körningen med -instruktionen omedelbart efter instruktionen som senast anropades ut ur proceduren som innehåller felhanteringsrutinen (eller On Error Resume Next -instruktionen).

line
Valfritt. Körningen återupptas på den rad som anges i argumentet som krävs line . Argumentet line är en radetikett eller radnummer och måste vara i samma procedur som felhanteraren.

Kommentarer

Om du använder en Resume instruktion någon annanstans än i en felhanteringsrutin uppstår ett fel.

-instruktionen Resume kan inte användas i någon procedur som innehåller en Try...Catch...Finally -instruktion.

Exempel

I det här exemplet används -instruktionen Resume för att avsluta felhanteringen i en procedur och sedan återuppta körningen med instruktionen som orsakade felet. Felnummer 55 genereras för att illustrera användningen av -instruktionen Resume .

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

Krav

Namnområde:Microsoft.VisualBasic

Sammansättning: Visual Basic Runtime Library (i Microsoft.VisualBasic.dll)

Se även

• Försöka... Fånga... Slutligen-instruktion
• Feluttryck
• Vid feluttryck