منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر

السلام عليكم ورحمة الله وبركاته
عملت برنامج يقوم بعملية مسح ضوئي للمستندات وهو يعمل بشكل سليم ولكن المشكلة تظهر في حالة عدم وجود اتصال الماسح الضوئي يعني لو بالخطأ تم الضغط على ايقونة المسح الضوئي فإن البرنامج يهنج سؤالي عن كود يبحث عن الماسحات الضوئية وفي حالة عدم اتصالها جميعها يتم الخروج من 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

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

أشكر لكم مروركم
تم حل المشكلة بإستخدام الكود التالي

Dim scanner As WIA.Device = Nothing

If Device Is Nothing Then

MsgBox("لايوجد سكانر")

Exit Sub

End If

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

صالح عبدالله

صالح عبدالله