طلب تعديل كود الماسح الضوئى

بسم الله الرحمن الرحيم

ممكن طلب لا دول عدة مطاليب

1- كود سحب الصورة من الاسكنر أو الكميرة

Clipboard.Clear

If TWAIN_AcquireToClipboard(Me.hWnd, nPixTypes) = 0 Then MsgBox "No image was acquired or transfer to the clipboard failed.", vbInformation, ""

Me.Picture1.Picture = Clipboard.GetData

أى المسمى بأحضا الصورة من الجهاز

TWAIN_SelectImageSource (Me.hWnd)

أى المسمى بأختيار الجهاز المستخدم

وكود المديول

Declare Function TWAIN_AcquireToFilename Lib "EZTW32.DLL" (ByVal hwndApp%, ByVal bmpFileName$) As Integer

Declare Function TWAIN_SelectImageSource Lib "EZTW32.DLL" (ByVal hwndApp&) As Long

Declare Function TWAIN_AcquireToClipboard Lib "EZTW32.DLL" (ByVal hwndApp As Long, ByVal wPixTypes As Long) As Long

Declare Function TWAIN_IsAvailable Lib "EZTW32.DLL" () As Long

Declare Function TWAIN_EasyVersion Lib "EZTW32.DLL" () As Long

الطلب1

أنا لم بحط الكود تحت الزراير والمديول

يتم تنفيذ الكود بنجاح

لكن أنا عوز

أحطة تحت combo box

كأختيار

يعنى

لما أضغط علىcombo box

تظهر قائمة منسدلة

يوجد بها

أسامى ألأجهزة

ك الكميرة

ك ألأسكنر

وأى جهز اخر مستخدم لهازة العملية

أنا حولت أنفذ الكود

تحت كل من الكميرة

والاسكنر بيتم أظهار نفس ألأمر

يعنى لةأنا بسحب صورة من كميرة بتظهر البرنامج اللافتراضى للسكنر

أنا عوز

لم أضغط على الاسكنر يجى لالبرنامج الافترادى للسكنر

لم أضغط على الكميرة يجى البرنامج الافترادى للكميرة

2\\\\\

لو فيها رزالة

ممكن تتم سحب الصورة على الفورمة مباشرأ بدل من البرنامج الأفترادى

يعنى لم أضغط على أى جهاز من الأجهزة تتم ظهور وسحب الصورة على أدةimage box

3كيفية أنشاء ملف المستخدم يختار مكانة

4\\\\ كيفية أستدعاء الصورة من الجهاز

وأرفقها أوأدخلها داخل قاعدة بيانا ت من

ألأكسيس داخل حقول من نوع كائنole

وحفظها داخل قاعدة البيانات وداخل المجلد المنشاء بمعرفة المستخدم

ملاحظة

5 \\\ ممكن كود أظهار وأستدعاء الصورة من داخل الجهاز وأدخالها داخل قاعدة البيانات

أنا أستخدم الأدة المسماة data1

شـــــــــــــــــــــــــــــكراً