كيف تتعامل مع الاخطاء في فيجوال بيسك

مواضيع ذات صلة

كتبه: karwanpro / بتاريخ: 2013-07-23 , سێ شه‌ممه‌

ان المبرمج الحقيقي يتعلم دائما من اخطاءه فلابد ان تكون هناك اخطاء اثناء كتابتك للبرنامج وهذه الاخطاء تكون ناتجة عن النسيان لرمز معين أو أمر أو تكتب الكلمة بالخطأ وهذه يسبب لك الازعاج في تنفيذ البرنامج ولكن يجب تتقن التعامل مثل هكذا أخطاء واصلاح الخطأ اينما وجد وبالتالي التعلم منه لتكون مبرمجا ناجحا

التعليمة القياسية لتجاهل الأخطاء هي

Code

On Error Resume Next

تكتب قبل الحدث وتقوم بإلغاء الحدث عند وقوع خطأ , وهناك طريقة أخرى وهي عمل حدث كرسالة مثلاً عند وقوع الخطأ

أولا عليك التصريح عن الخطأ كمايلي

Code

On Error Goto R

® هي اسم الخطأ يمكنك تغييره لما تريد بعد ذلك أكتب الحدث .... مثلاً Form2.Show اذا لم يكن الفورم2 موجودا ً سوف يتم اغلاق البرنامج فعليك أن تكتب التعليمة بالشكل التالي

Code

On Error GoTo R
Form2.Show
Exit Sub
R:
MsgBox "حدث خطأ في البرنامج", vbCritical, "غير موجود"

في السطر الأول التصريح عن الخطاُ
في السطر الثاني الحدث الأساسي
في السطرالرابع والخامس يتم تحديد فعل المتحول
يمكنك تحديد أي حدث للمتحول بدلاً من الرسالة أو يمكنك أن تكتب السطر التالي :

Code

MsgBox Err.Description

أي أن الرسالة ستكون من أصل الخطأ
إليك مثالاً مفيداً للتصريح عن الخطأ
اصنع Form أضف اليه أداة Drive1 "محركات الأقراص" وأداة Dir1 "صندوق المجلدات " أنقر فوق Drive1 نقرتين وأضف الأسطر التالية:

Code

On Error GoTo error1
Dir1.Path = Drive1.Drive
Exit Sub
error1:
MsgBox "الرجاء إدخال قرص في محرك الأقراص هذا", vbCritical, "خطأ"

السطر الأول التصريح عن الخطأ
السطر الثاني الحدث الأساسي "عرض المجلدات داخل محرك الأقراص المحدد"
الأسطر الأخيرة عمل المتحول وهو عرض رسالة خطأ
ويمكنك الإستغناء عن الرسالة السابقة بالرسالة الأساسية للخطأ بالتعليمة التالية:

Code

MsgBox Err.Description

1554 عدد المشاهدات