عبارة Resume

مقالة
11/01/2010

استئناف التنفيذ بعد إنتهاء روتين معالجة خطأ.

Resume [ Next | line ]

الأجزاء

Resume
مطلوبة. إذا حدث الخطأ في نفس الإجراء كمعالج خطأ، التنفيذ يستئنف مع العبارة التي تسببت في الخطأ. إذا كان خطأ يحدث في إجراء مستدعى، يستئنف التنفيذ في العبارة الأخيرة التي استدعت الإجراء الذي يحتوي على روتين معالجة الخطأ.
Next
اختياري. إذا حدث الخطأ في نفس الإجراء كمعالج خطأ، التنفيذ يستئنف مع العبارة التي تتبع مباشرة العبارة التي تسببت في الخطأ. إذا كان خطأ يحدث في إجراء مستدعى، يستئنف التنفيذ مع العبارة التي تتبع مباشرة أخر عبارة استدعت الإجراء الذي يحتوي على روتين معالجة الخطأ (أو عبارة On Error Resume Next).
line
اختياري. يستئنف التنفيذ في السطر المحدد في الوسيطة line المطلوبة. الوسيطة line هي تسمية عنوان أو رقم سطر كما يجب أن تكون في نفس الإجراء كمعالج الخطأ.

ملاحظات

إذا كنت تستخدم عبارة Resume في أي مكان أخر غير روتين معالجة الأخطاء يحدث خطأ.

العبارة Resume لا يمكن استخدامها في أي إجراء يحتوي على عبارة Try...Catch...Finally.

مثال

يستخدم هذا المثال العبارة Resume لإنهاء معالجة الخطأ في إجراء ثم يستئنف التنفيذ بالعبارة التي تسببت في الخطأ. يتم إنشاء رقم الخطأ 55 لتوضيح استخدام عبارة 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