Not
Bu sayfaya erişim yetkilendirme gerektiriyor. Oturum açmayı veya dizinleri değiştirmeyi deneyebilirsiniz.
Bu sayfaya erişim yetkilendirme gerektiriyor. Dizinleri değiştirmeyi deneyebilirsiniz.
Hata işleme yordamı tamamlandıktan sonra yürütmeyi sürdürür.
Yapılandırılmamış özel durum işleme ve ve On Error deyimlerini kullanmak yerine mümkün olduğunca kodunuzda yapılandırılmış özel durum işleme kullanmanızı Resume öneririz. Daha fazla bilgi için bkz . Try... Tutmak... Finally Deyimi.
Sözdizimi
Resume [ Next | line ]
Parça
Resume
Gerekli. Hata, hata işleyicisiyle aynı yordamda oluşursa, yürütme hataya neden olan deyimiyle devam eder. Hata, çağrılan bir yordamda oluştuysa, yürütme, hata işleme yordamını içeren yordamın en son çağrılan deyiminde devam eder.
Next
isteğe bağlı. Hata, hata işleyicisiyle aynı yordamda oluştuysa yürütme, hataya neden olan deyimin hemen ardından deyimiyle devam eder. Hata, çağrılan bir yordamda oluştuysa, yürütme, hata işleme yordamını (veya On Error Resume Next deyimini) içeren yordamdan son çağrılan deyimin hemen ardından deyimiyle devam eder.
line
isteğe bağlı. Yürütme, gerekli line bağımsız değişkende belirtilen satırda devam eder. Bağımsız line değişken bir satır etiketi veya satır numarasıdır ve hata işleyicisi ile aynı yordamda olmalıdır.
Açıklamalar
Not
Yapılandırılmamış özel durum işleme ve ve On Error deyimlerini kullanmak yerine mümkün olduğunda kodunuzda yapılandırılmış özel durum işlemeyi Resume kullanmanızı öneririz. Daha fazla bilgi için bkz . Try... Tutmak... Finally Deyimi.
Hata işleme yordamı dışında herhangi bir Resume yerde deyimi kullanırsanız bir hata oluşur.
deyimi, Resume deyimini içeren herhangi bir Try...Catch...Finally yordamda kullanılamaz.
Örnek
Bu örnek, bir yordamda hata işlemeyi sonlandırmak ve ardından hataya neden olan deyimiyle yürütmeyi sürdürmek için deyimini kullanır Resume . Deyiminin Resume kullanımını göstermek için 55 numaralı hata oluşturulur.
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
Gereksinimler
Ad Alanı:Microsoft.VisualBasic
Derleme: Visual Basic Çalışma Zamanı Kitaplığı (Microsoft.VisualBasic.dll)