+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر (/showthread.php?tid=47786)
مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر - صالح عبدالله - 09-01-24
السلام عليكم ورحمة الله وبركاته
عملت برنامج يقوم بعملية مسح ضوئي للمستندات وهو يعمل بشكل سليم ولكن المشكلة تظهر في حالة عدم وجود اتصال الماسح الضوئي يعني لو بالخطأ تم الضغط على ايقونة المسح الضوئي فإن البرنامج يهنج سؤالي عن كود يبحث عن الماسحات الضوئية وفي حالة عدم اتصالها جميعها يتم الخروج من sub
جربت sub التالي ولكنه يبحث عن أول ماسح متوفر فقط وفي حالة عدم وجوده يعمل مشكلة التهنيج
اسف على الإطالة
Public Sub CheckScanner()
Dim wiaManager As New WIA.CommonDialog
' Disable the scanner selection dialog
wiaManager.SuppressScannerUI = True
' Try to get the first available scanner
Dim scanner As WIA.Device
Try
scanner = wiaManager.Devices(1)
Catch ex As Exception
' No scanner found
MsgBox("لا يوجد ماسح ضوئي متصل بالجهاز.", MsgBoxStyle.Exclamation, "تنبيه")
Exit Sub
End Try
If scanner.IsConnected Then
MsgBox("الماسح الضوئي غير متصل.", MsgBoxStyle.Exclamation, "تنبيه")
Exit Sub
End If
end sub
RE: مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر - صالح عبدالله - 09-01-24
السلام عليكم ورحمة الله وبركاته
أشكر لكم مروركم
تم حل المشكلة بإستخدام الكود التالي
Dim scanner As WIA.Device = Nothing
If Device Is Nothing Then
MsgBox("لايوجد سكانر")
Exit Sub
End If