IBM Lotus Symphony


‏‎On Error GoTo ... Resume Statement [Runtime]‎‏

يتم اتاحة برنامج error-handling routine بعد حدوث خطأ، أو استئناف تنفيذ البرنامج.

الصيغة:

On {Error GoTo Labelname | GoTo 0 | Resume Next}

المعاملات:

GoTo Labelname: اذا حدث خطأ، يتم اتاحة error-handling routine يقوم بالبدء بالسطر "Labelname".

Resume Next: اذا حدث خطأ، سيستمر تنفيذ البرنامج من العبارة التي تلي العبارة التي حدث بها الخطأ.

GoTo 0: يتم الغاء اتاحة error handler في الاجراء الحالي.

يتم استخدام عبارة On Error GoTo للتصرف تجاه الأخطاء التي تحدث في أمر مركب. يجب أن يتم ادراج العبارة في بداية الاجراء (في برنامج error-handling routine محلي) أو في بداية وحدة برامج.

مثال:

Sub ExampleReset

On Error Goto ErrorHandler

Dim iNumber As Integer

Dim iCount As Integer

Dim sLine As String

Dim aFile As String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Output As #iNumber

Print #iNumber, "هذا سطر من النص"

Close #iNumber

iNumber = Freefile

Open aFile For Input As iNumber

For iCount = 1 to 5

Line Input #iNumber, sLine

If sLine <>"" then

rem

end if

Next iCount

Close #iNumber

Exit Sub

‏‎ErrorHandler:‎‏

Reset

MsgBox "All files will be closed",0,"Error"

End Sub


التعليق التقييمي عن البرنامج | المزيد من المطبوعات الفنية | العلامات التجارية