اخوانى ما هو الكود try end try ?

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ...

هذا الأمر يستخدم لاصطياد الأخطاء التي تقع في الكود الذي يوضع بينهما ويمكنك التعامل مع الأخطاء بجملة Catch ، ويعتبر بديلاً للكود التالي في VB6 :

On Error GoTo Err1

و اضافة الى ذلك تستطيع به اصطياد أي خطأ بحسب نوعه و اظهار الرسالة الملائمة

و هذا مثال بسيط يصطاد مثلا خطأ في الكلاس StreamReader و الخطأ هو عدم وجود الملف المطلوب فتحه و نوعه او اسمه هو IO.FileNotFoundException

Imports System.IO
.
.
.
.

 Try
            Dim x As String
'محاولة فتح ملف غير موجود
            Dim s As StreamReader = New StreamReader("c:\ee.eeghj")
            x = s.Read
هنا اصطياد الخطأ IO.FileNotFoundException
        Catch exe As IO.FileNotFoundException
            MsgBox("File Not Found ,  Try to choose another one !!!", MsgBoxStyle.Critical)
' هنا اصطياد خطأ كيفما كان نوع باستثنا الخطأ الذي حددناه
        Catch ex As Exception
'اظهار رسالة الخطأ في مسج بوكس حتى لا يقفل البرنامج
            MsgBox(ex.Message)
'الكود الذي يلي فاينلي يشتغل دائما اذا كان هناك خطأ 
        Finally
            MsgBox("This line will be execute in all exception cases")
        End Try

اذا كان أي استفسار انا تحت أمرك ;)

و السلام عليكم

-09

شكرا أخوانى