[محمد اسماعيل]

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

استخدمت مكتبة twain وكلاس مجاني الكود يعمل ويسح الملف في حالة اتصال الماسح الضوئي ولكن في حالة عدم اتصالة او فصلة وتركيبة والضغط علي بوتن السحب يتوقف البرنامج كلة ..

اريد طريقة لفحص اتصال الماسح او عدم اتصالة او طريقة لتخطي الخطاء لان الكود يوقف البرنامج كلة .

كود لعملية الاسكان ويعمل جيدا اذا كان الماسح متصل بالكمبيوتر 


تابعت امثلة كتيرة بالمنتدي ونفس مشكلة توقف البرنامج في حالة عدم وجود ماسح ضوئي والضغط علي الكود او فصل واتصال الماسح الضوئي ..

كود :

Try
           Dim s As Collection

           s = SCANNER.ScanImages()

           For Each k In s

               PictureBox1.Load(k)

           Next
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try