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