24-07-18, 12:22 PM
24-07-18, 01:55 PM
السلام عليكم
الرجاء التقيد بنشر المواضيع في القسم المحدد
تم نق لالموضوع لقسم الاسئلة
25-07-18, 03:25 AM
ضع مثال اخي
25-07-18, 02:21 PM
لاتمام عرض اسماء اجهزة الماسح الضوئي
كل ما عليك فعله هو استخدام الكود التالىكود :
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
فيمكنك بعد ذلك الاستخدام كما تشاء
وسامحنى لان لا يوجد لدى بالجهاز الحالى
ماسح ضوئي حتى اظهر لك النتائح للكود
تحياتى لك
وتمنياتى لك التوفيق
26-07-18, 12:33 AM
الف تحيه ستتم التجربه واوافيك بالنتائج