Hata işleme yordamı tamamlandıktan sonra yürütmeyi sürdürür.
Yapılandırılmamış özel durum işleme ve ve Resume deyimlerini kullanmak yerine mümkün olduğunca kodunuzda yapılandırılmış özel durum işleme kullanmanızı On Error öneririz. Daha fazla bilgi için bkz . Try... Tutmak... Finally Deyimi.
Sözdizimi
VB
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 Resume deyimlerini kullanmak yerine mümkün olduğunda kodunuzda yapılandırılmış özel durum işlemeyi On Error 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.
VB
Sub ResumeStatementDemo()
OnErrorGoTo ErrorHandler ' Enable error-handling routine.Dim x AsInteger = 32Dim y AsInteger = 0Dim z AsInteger
z = x / y ' Creates a divide by zero errorExitSub' Exit Sub to avoid error handler.
ErrorHandler: ' Error-handling routine.SelectCase Err.Number ' Evaluate error number.Case6' "Divide by zero" error.
y = 1' Sets the value of y to 1 and tries the calculation again.CaseElse' Handle other situations here....EndSelectResume' Resume execution at same line' that caused the error.EndSub
Bu içeriğin kaynağı GitHub'da bulunabilir; burada ayrıca sorunları ve çekme isteklerini oluşturup gözden geçirebilirsiniz. Daha fazla bilgi için katkıda bulunan kılavuzumuzu inceleyin.
.NET geri bildirimi
.NET, açık kaynak bir projedir. Geri bildirim sağlamak için bir bağlantı seçin:
Diğer geliştiriciler ve uzmanlarla gerçek dünyadaki kullanım örneklerini temel alan ölçeklenebilir yapay zeka çözümleri oluşturmak için toplantı serisine katılın.