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

[Ahmed_J]

السلام عليكم اساتذتي الاعزاء

اريد كود بالنموذج يظهر لي اجهزة الماسح الضوئي المتصلة بالحاسوب عن طريق قائمة او نافذه

وطريقة الاختيار منها لعملية المسح الضوئي كما في الصورة المرفقة  علما  اني استخدمت الدالة (TWAIN) .

تحياتي للجميع

 

تم تعديل أكتوبر 25 بواسطه Ahmed_J

[kanory]

منذ ساعه, Ahmed_J said:

اريد كود بالنموذج يظهر لي اجهزة الماسح الضوئي المتصلة بالحاسوب عن طريق قائمة او نافذه

جرب هذا ... لانه ليس لدي ماسح

Public Function SelectScanner()
'يتطلب إضافة مرجع إلى “Microsoft Windows Image Acquisition Library v2.0
    Dim ComDialog As New WIA.CommonDialog
    Dim wiaScanner As WIA.Device

    ' عرض نافذة لاختيار الجهاز
    Set wiaScanner = ComDialog.ShowSelectDevice(WiaDeviceType.ScannerDeviceType, False, True)

    ' إذا تم اختيار جهاز، فإن DeviceID سيحتوي على معرف الجهاز المحدد
    If Not wiaScanner Is Nothing Then
        MsgBox "تم اختيار الجهاز: " & wiaScanner.DeviceID
    Else
        MsgBox "لم يتم اختيار أي جهاز."
    End If
End Function

 

[Ahmed_J]

السلام عليكم 

شكرا لك استاذ  @kanory

لدي نموذج فيه كومبوبوكس لمعرفة الاجهزة المتصلة بالحاسوب 

يمكن من خلاله تحديد  نوع الماسح الضوئي المراد العمل عليه

ارجو تجربته واخبارنا بالنتيجة كما في النموذج المرفق

تحياتي

 

test.accdb

 

تم تعديل أكتوبر 26 بواسطه Ahmed_J

[عمر ضاحى]

منذ ساعه, Ahmed_J said:

السلام عليكم 

شكرا لك استاذ  @kanory

لدي نموذج فيه كومبوبوكس لمعرفة الاجهزة المتصلة بالحاسوب 

يمكن من خلاله تحديد  نوع الماسح الضوئي المراد العمل عليه

ارجو تجربته واخبارنا بالنتيجة كما في النموذج المرفق

تحياتي

 

test.accdb 596 kB · 6 downloads

 

الكود شغال وبيظهر لى الماسح الضوئى ال عندي

[Ahmed_J]

السلام عليكم 

استاذ @عمر ضاحى

 انا عندي نظام التشغيل (Windows 7 32 bit)  واكسس (2010) والكود شغال معي

ارجو تجربته على انظمة مختلفة  لتعم الفائده للجميع

تحياتي

 

تم تعديل أكتوبر 26 بواسطه Ahmed_J

[عمر ضاحى]

1 ساعه مضت, Ahmed_J said:

السلام عليكم 

استاذ @عمر ضاحى

 انا عندي نظام التشغيل (Windows 7 32 bit)  واكسس (2010) والكود شغال معي

ارجو تجربته على انظمة مختلفة  لتعم الفائده للجميع

تحياتي

 

انا وندوز 10 نظام 64 بت