كود مسح ضوئي في vb.net

[ابو تميم]

قمت بتصميم برنامج يعمل على ارشفة تقارير وعندي مشكلة بسيطة ارجو ان تساعدوني فيها في vb.net

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

المطلوب هو كود يعمل على سحب الصورة من السكانر بحيث تكون اعدادات السكانر محدده مسبقا في البرنامج مثل اختيار اللون الابيض والاسود وحجم الورق وباقي خيارات السكانر الشائعة

بحيث لا يسمح للمستخدم تغيير اعدادات الصورة المسحوبة لمنع ادخال صور ملونة ذات حجم كبير على قاعدة البيانات

[ابو تميم]

كود المسح الضوئي الحالي 

 EZTwain.SelectTwainsource(0) ' امر تحديد الاسكنر
            If My.Computer.FileSystem.FileExists(Application.StartupPath & "MyImage.tif") = True Then ' يتحقق إذا كان الصورة موجوده في الهارديسك بنفس الاسم ام لا 
                My.Computer.FileSystem.DeleteFile(Application.StartupPath & "MyImage.tif") ' في حال وجودها سيتم حذفها حتى يتمكن من حفظ الصورة الجديده
            End If
            EZTwain.AcquireToFileName(Me.Handle, Application.StartupPath & "MyImage.tif") ' يقوم باستخراج الصورة من الماسح الضوئي وحفظها في الهاردسك
            PictureBox1.ImageLocation = Application.StartupPath + "MyImage.tif" ' لجلب الصورة في البكتشر بوكس وعرضها

            OFD.FileName = Application.StartupPath + "MyImage.tif" ' لجلب موقع الصوره ووضعها في متغير
            

 

[ابو تميم]

up

[mennad sofiane]

في ١٧‏/٨‏/٢٠١٦ at 07:34, ابو تميم said:

قمت بتصميم برنامج يعمل على ارشفة تقارير وعندي مشكلة بسيطة ارجو ان تساعدوني فيها في vb.net

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

المطلوب هو كود يعمل على سحب الصورة من السكانر بحيث تكون اعدادات السكانر محدده مسبقا في البرنامج مثل اختيار اللون الابيض والاسود وحجم الورق وباقي خيارات السكانر الشائعة

بحيث لا يسمح للمستخدم تغيير اعدادات الصورة المسحوبة لمنع ادخال صور ملونة ذات حجم كبير على قاعدة البيانات

شكرا اخي الكريم

[salamco123]

On 8/18/2016 at 8:06 AM, ابو تميم said:

كود المسح الضوئي الحالي 

 EZTwain.SelectTwainsource(0) ' امر تحديد الاسكنر
            If My.Computer.FileSystem.FileExists(Application.StartupPath & "MyImage.tif") = True Then ' يتحقق إذا كان الصورة موجوده في الهارديسك بنفس الاسم ام لا 
                My.Computer.FileSystem.DeleteFile(Application.StartupPath & "MyImage.tif") ' في حال وجودها سيتم حذفها حتى يتمكن من حفظ الصورة الجديده
            End If
            EZTwain.AcquireToFileName(Me.Handle, Application.StartupPath & "MyImage.tif") ' يقوم باستخراج الصورة من الماسح الضوئي وحفظها في الهاردسك
            PictureBox1.ImageLocation = Application.StartupPath + "MyImage.tif" ' لجلب الصورة في البكتشر بوكس وعرضها

            OFD.FileName = Application.StartupPath + "MyImage.tif" ' لجلب موقع الصوره ووضعها في متغير
            

 

شكرا هل ممكن عمل نفس الكود باستخدام vba اكس

[abdulmajid]

جزاك الله خير