Folytatási utasítás
A hibakezelési rutin befejeződése után folytatja a végrehajtást.
Javasoljuk, hogy strukturált kivételkezelést használjon a kódban, amikor csak lehetséges, ahelyett, hogy strukturálatlan kivételkezelést és utasításokat On Error Resume használnánk. További információ: Kipróbálás... Elkap... Végül nyilatkozat.
Syntax
Resume [ Next | line ]
Részek
Resume
Szükséges. Ha a hiba a hibakezelővel megegyező eljárásban történt, a végrehajtás a hibát okozó utasítással folytatódik. Ha a hiba egy úgynevezett eljárásban történt, a végrehajtás folytatódik a hibakezelési rutint tartalmazó eljárásból legutóbb kihívott utasításnál.
Next
Opcionális. Ha a hiba a hibakezelővel megegyező eljárásban történt, a végrehajtás a hibát okozó utasítást közvetlenül követő utasítással folytatódik. Ha a hiba egy úgynevezett eljárásban történt, a végrehajtás a hibakezelési rutint (vagy On Error Resume Next utasítást) tartalmazó eljárásból utolsóként kihívott utasítást követő utasítással folytatódik.
line
Opcionális. A végrehajtás a kötelező line argumentumban megadott sorban folytatódik. Az line argumentum egy sorcímke vagy sorszám, és ugyanabban az eljárásban kell lennie, mint a hibakezelő.
Megjegyzések
Feljegyzés
Javasoljuk, hogy strukturált kivételkezelést használjon a kódban, amikor csak lehetséges, ahelyett, hogy strukturálatlan kivételkezelést és utasításokat On Error Resume használnánk. További információ: Kipróbálás... Elkap... Végül nyilatkozat.
Ha a Resume hibakezelési rutintól eltérő helyen használ utasítást, hiba történik.
Az Resume utasítás nem használható utasítást Try...Catch...Finally tartalmazó eljárásokban.
Példa
Ez a példa az utasítással fejezi be a Resume hibakezelést egy eljárásban, majd folytatja a végrehajtást a hibát okozó utasítással. Az 55-ös hibaszám az utasítás használatának szemléltetésére Resume jön létre.
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
Követelmények
Névtér: Microsoft.VisualBasic
Szerelvény: Visual Basic Runtime Library (Microsoft.VisualBasic.dll)
