موقع نواحي
التعامل مع الأخطاء
 موقع نواحي  الدروس  فيجوال بيسك  التعامل مع الأخطاء |
التعامل مع الأخطاء
إذا كنت تريد عمل أي برنامج بسيط فلابد أن يحصل في بعض الأحداث الأخطاء وهذاالخطأ سوف يتسبب في إغلاق البرنامج.
فدرسنا اليوم هو للتصريح عن الخطأ وتجاهله :
التعليمة القياسية لتجاهل الأخطاء هي
تكتب قبل الحدث وتقوم بإلغاء الحدث عند وقوع خطأ
وهناك طريقة أخرى وهي عمل حدث كرسالة مثلاً عند وقوع الخطأ
أولا عليك التصريح عن الخطأ كمايلي
(R) هي اسم الخطأ يمكنك تغييره لما تريد
بعد ذلك أكتب الحدث .... مثلاً Form2.Show اذا لم يكن الفورم2 موجودا ً سوف يتم اغلاق البرنامج
فعليك أن تكتب التعليمة بالشكل التالي
في السطر الأول التصريح عن الخطاُ
في السطر الثاني الحدث الأساسي
في السطرالرابع والخامس يتم تحديد فعل المتحول
يمكنك تحديد أي حدث للمتحول بدلاً من الرسالة أو يمكنك أن تكتب السطر التالي :
أي أن الرسالة ستكون من أصل الخطأ
إليك مثالاً مفيداً للتصريح عن الخطأ
اصنع Form أضف اليه أداة Drive1 'محركات الأقراص' وأداة Dir1 'صندوق المجلدات '
أنقر فوق Drive1 نقرتين وأضف الأسطر التالية:
السطر الأول التصريح عن الخطأ
السطر الثاني الحدث الأساسي 'عرض المجلدات داخل محرك الأقراص المحدد'
الأسطر الأخيرة عمل المتحول وهو عرض رسالة خطأ
ويمكنك الإستغناء عن الرسالة السابقة بالرسالة الأساسية للخطأ بالتعليمة التالية:
هذا مجرد شرح بسيط عن الأخطاء لكي يكون برنامجك نظيفاً خالياً من أي Error
وتمنياتي لكم بالتوفيق
فدرسنا اليوم هو للتصريح عن الخطأ وتجاهله :
التعليمة القياسية لتجاهل الأخطاء هي
| On Error Resume Next |
تكتب قبل الحدث وتقوم بإلغاء الحدث عند وقوع خطأ
وهناك طريقة أخرى وهي عمل حدث كرسالة مثلاً عند وقوع الخطأ
أولا عليك التصريح عن الخطأ كمايلي
| On Error Goto R |
(R) هي اسم الخطأ يمكنك تغييره لما تريد
بعد ذلك أكتب الحدث .... مثلاً Form2.Show اذا لم يكن الفورم2 موجودا ً سوف يتم اغلاق البرنامج
فعليك أن تكتب التعليمة بالشكل التالي
| On Error GoTo R Form2.Show Exit Sub R: MsgBox 'حدث خطأ في البرنامج', vbCritical, 'غير موجود' |
في السطر الأول التصريح عن الخطاُ
في السطر الثاني الحدث الأساسي
في السطرالرابع والخامس يتم تحديد فعل المتحول
يمكنك تحديد أي حدث للمتحول بدلاً من الرسالة أو يمكنك أن تكتب السطر التالي :
| MsgBox Err.Description |
أي أن الرسالة ستكون من أصل الخطأ
إليك مثالاً مفيداً للتصريح عن الخطأ
اصنع Form أضف اليه أداة Drive1 'محركات الأقراص' وأداة Dir1 'صندوق المجلدات '
أنقر فوق Drive1 نقرتين وأضف الأسطر التالية:
| On Error GoTo error1 Dir1.Path = Drive1.Drive Exit Sub error1: MsgBox 'الرجاء إدخال قرص في محرك الأقراص هذا', vbCritical, 'خطأ' |
السطر الأول التصريح عن الخطأ
السطر الثاني الحدث الأساسي 'عرض المجلدات داخل محرك الأقراص المحدد'
الأسطر الأخيرة عمل المتحول وهو عرض رسالة خطأ
ويمكنك الإستغناء عن الرسالة السابقة بالرسالة الأساسية للخطأ بالتعليمة التالية:
| MsgBox Err.Description |
هذا مجرد شرح بسيط عن الأخطاء لكي يكون برنامجك نظيفاً خالياً من أي Error
وتمنياتي لكم بالتوفيق
 تاريخ الإضافة : |
20/3/2008 |
| زيارات الصفحة : |
43 |
| رابط ذو صلة : |
http://www.nwahy.com |
| كاتب الموضوع : |
موقع نواحي |