الإرشادات التفصيلية: معالجة ‏الاستثناء المصنف

بينما لا يزال يمكنك تطبيق كشف On Error لمعالجة الاستثناءات الموجودة في التعليمات البرمجية لتوفير معالجة ‏‏الاستثناء غير المصنف ، فإن Visual Basic 2005 يدعم معالجة ‏‏الاستثناء المصنف الذي يمكنك استخدامه لإنشاء البرامج مع معالجة شاملة للأخطاء و المحافظة عليها . و في معالجة الاستثناء المصنف ، كتل التعليمات البرمجية تختبر ظروف معينة ثم تتفاعل وفقاً لذلك.

توضح هذه معاينة كيفية إضافة معالجة ‏استثناء مصنفة إلى البرنامج. و بشكل خاص، يعرض كيفية استخدام كشف Try...Catch...Finally لمعالجة الاستثناءات و كيفية تنفيذ تصفية الخطأ داخل كتل Catch .

ملاحظة

لا يمكنك تجميع ‏‏معالجة الاستثناء المصنفة و غير المصنفة داخل إجراء مفرد.

ملاحظة

قد تختلف مربعات الحوار وأوامر القائمة التى تشاهدها الان عن تلك الموصوفة في التعليمات اعتماداً على الإعدادات النشطة أو الإصدار الخاص بك. لتغيير الإعدادات الخاصة بك, اختر إعدادات الاستيراد و التصدير ضمن القائمة أدوات . لمزيد من المعلومات، راجع العمل مع إعدادات.

إنشاء التطبيق

التطبيق التالي يعتبر نموذج ترتيب عميل للشركة التي تبيع teddy bears (دمى الدببة) . و تتكون واجهة المستخدم من عناصر التحكم التالية:

• واحد من TextBox لاسم العميل.

• عنصري تحكم ComboBox لتحديد لون و حجم الدب.

• ترتيب واحد Button.

• الثلاث تسميات التي تبرز الغرض من كل عنصر تحكم للمستخدم.

• و عندما يقوم المستخدم بإدخال المعلومات المطلوبة و ينقر فوق زر الترتيب ، سيعرض التطبيق خلاصة عن الترتيب.

و لإنشاء التطبيق

1. من قائمة ملف، حددمشروع جديد. يظهر مربع الحوار مشروع جديد.

2. في نافذة أنواع المشروع، حددVisual Basic و النوافذ ، و في حالة كانوا غير محددين بالفعل ، حدد تطبيق النوافذ من تافذة القوالب .

3. في نافذة خصائصضمنالاسم أدخل TeddyBearProject و انقر فوق‏‏موافق. و قد تمت إضافة المشروع إلى مستكشف الحلول و يتم فتح مصمم Windows Forms.

4. أضف عناصر التحكم إلى النموذج ثم قم بتعيين خصائصهم كما هو محدد.

   عنصر التحكم	Properties	قيم الخصائص
   Label	الاسم Text	customerLabel تحمل نموذج الطلب
   مربع نص	الاسم Text	اسم العميل اسم العميل
   Label	الاسم Text	bearColorLabel ألوان متوفرة
   مربع تحرير و سرد	الاسم العنصر Text	bearColor أسود , بني , منقط تحمل اللون
   Label	الاسم Text	bearSizeLabel الأحجام المتوفرة
   مربع تحرير و سرد	الاسم العنصر Text	bearSize صغيرة أو متوسطة أو كبيرة Size
   الزر	الاسم Text	ترتيب Order

إضافة وظائف

و الآن تمت إضافتة و تعيين تلك عناصر التحكم و الخصائص الخاصة بهم ،و يجب عليك وضع تعليمات برمجية خلفها لجعلها دالة. التعليمات البرمجية التالية تعالج حدث Click لزر الترتيب وعرض رسالة إلى العميل.

و لإضافة الوظيفة إلى النموذج و عناصر التحكم الخاصة به

• قم بإضافة التعليمات البرمجية التاليةإلى زر الترتيب الخاص بالحدث Click .

  Dim bearOrder As String
  bearOrder =
    String.Format("You have ordered a {0} {1} bear.",
    bearSize.SelectedItem, bearColor.SelectedItem)
  MsgBox(bearOrder)
  

التطبيق جاهز الآن ليمكنك من إضافة معالجة استثناء مصنفة للتعليمات البرمجية.

إضافة كتلة إعادة...التقاط

و لضمان أن العميل قام بتحديد لون الكوالا ، أضف كشف Try...Catch . تذكر ما يلي:

• جملة Catch مع عدم وجود معرّف تلتقط كل الاستثناءات.

• A Catch جملة مع When جملة catches استثناءات فقط عندما يتم تقييم التعبير إلى True; يجب أن يكون نوع التعبير convertible ضمنيًا إلى Boolean.

و لإضافة كتلة Try...Catc بسيطة

• أضف التعليمات البرمجية التالية إلى حدث زر الترتيب Click بعد المقطع الذي يختبر قيم اللون و الحجم أي بعد String.Format ("You have ordered a {0} {1} bear.", BearSize.SelectedItem, BearColor.SelectedItem). و هذه التعليمات البرمجية تطرح الاستثناء إذا واجهت قيمة لون غير صالحة. و في كشوفات Try ، يجب أن تكون على علم بأن المحرر يوفر تلقائياً End Try في نهاية الكشف.

  Try
      If bearColor.SelectedIndex < 0 OrElse
         bearColor.SelectedIndex > 2 Then
           Throw New System.Exception()
      End If
      ' The Catch statement handles errors caused by a lack of bear color.
  Catch ex As Exception When bearColor.SelectedIndex < 0
      bearOrder = String.Format("You must select a bear color!")
  Finally
      Beep() ' Beep at the end.
  End Try
  

و لإضافة جملة التقاط إضافية

1. إضافة عنصر جديد , "أرجواني" ، إلى عنصر تحكم مربع التحرير و السرد bearColor .

2. قم بإضافة التعليمات البرمجية التالية بعد سطر التعليمات البرمجية bearOrder = String.Format("You must select a bear color!") .

   Catch ex As Exception When bearColor.SelectedIndex = 3
       bearOrder = String.Format("There are no bears of that color.")
   

و يمكنك إضافة العديد من عبارات Catch حسب الحاجة إلى التعليمات البرمجية الخاصة بك.

الاختبار

يمكنك الآن اختبار التطبيق للتأكد من أنه يعمل بشكل صحيح.

لإنشاء التطبيق وتشغيله.

1. من قائمة بنية حددبناء TeddyBearProject.

2. إضغط على F5 لتشغيل التطبيق. يظهر النموذج الرئيسي.

لإختبار التطبيق

1. أدخل الاسم في مربع النص اسم العميل ثم حدد اللون و الحجم للكوالا من مربعات التحرير و السرد الألوان المتوفر و الأحجام المتوفرة .

2. انقر فوق زر ترتيب . و إذا حددت أسود , أو بني أو منقط كلون في الخطوة السابقة ، ستظهر رسالة تبين الحجم و اللون للكوالا التي طلبتها.

   و إذا لم تقم بتعيين اللون ستظهر رسالة تطالبك القيام بذلك.

3. انقر فوق موافق لإلغاء الرسالة.

4. في مربع نص الألوان المتوفرة حددأرجواني ثم انقر فوق زر ترتيب. تظهر رسالة تفيد أن الدببة الأرجوانية غير متوفرة.

راجع أيضًا:

المرجع

على بيان الخطأ (Visual Basic)

حاول... التقاط... أخيراً بيان (Visual Basic)

الإلقاء بيان (Visual Basic)

المبادئ

نظرة عامة حول معالجة الاستثناء المصنفة لـ Visual Basic

موارد أخرى

مهام معالجة ‏الاستثناء