منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
محتاج كود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=25850)

محتاج كود - DOX.1 - 24-07-18

أبي كود يقرأ هل الجهاز مثبت عليه جهاز أسكنر أو لا 

إذا يوجد فيه ينفذ أمر وإذا مافيه ينفذ أمر 


وشكراً

RE: محتاج كود - sendbad100 - 24-07-18

السلام عليكم

الرجاء  التقيد  بنشر المواضيع في القسم المحدد

تم نق لالموضوع   لقسم الاسئلة 


RE: محتاج كود - YousefOkasha - 25-07-18

ضع مثال اخي

RE: محتاج كود - elgokr - 25-07-18

لاتمام عرض اسماء اجهزة الماسح الضوئي
كل ما عليك فعله هو استخدام الكود التالى
كود :
       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


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

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

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


RE: محتاج كود - DOX.1 - 26-07-18

الف تحيه ستتم التجربه واوافيك بالنتائج