اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود مسح ضوئي في 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" ' لجلب موقع الصوره ووضعها في متغير
            

 

رابط هذا التعليق
شارك

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

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

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

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

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

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

رابط هذا التعليق
شارك

  • 2 years later...
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 اكس

رابط هذا التعليق
شارك

  • 1 year later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information