[elgokr]

لاتمام عرض اسماء اجهزة الماسح الضوئي

كل ما عليك فعله هو استخدام الكود التالى

كود :

       Try
           Dim manager As WIA.DeviceManager = New WIA.DeviceManager
           Dim deviceName As String = ""
           For Each info As WIA.DeviceInfo In manager.DeviceInfos
               If info.Type = WIA.WiaDeviceType.ScannerDeviceType Then
                   For Each p As WIA.Property In info.Properties
                       If p.Name = "Name" Then
                           deviceName = p.get_Value().ToString()
                           MsgBox(deviceName)
                       End If
                   Next
               End If
           Next
       Catch ex As Exception
           MessageBox.Show(ex.Message, "Error...")
       End Try

طبعاً بدلاً من هذا السطر

كود :

MsgBox(deviceName)

يمكنك استخدام ادراء الاسماء فى ListBox او ما شبه

طيب عشان الكود ده يشتغل معاك بدون اى مشكلة

ستحتاج اضافة الملف المرفق فى References والملف باسم wiaaut.dll

فيمكنك بعد ذلك الاستخدام كما تشاء

وسامحنى لان لا يوجد لدى بالجهاز الحالى 

ماسح ضوئي حتى اظهر لك النتائح للكود

تحياتى لك

وتمنياتى لك التوفيق