+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=22928)
الصفحات:
1
2
استفسار عن كود - وهج الصحراء - 14-12-17
السلام عليكم
اريد كود سحب الصورة من الاسكانر ووضعها في البكتشر بوكس
شكرا لكم ..
RE: استفسار عن كود - طالب برمجة - 14-12-17
شاهد هذه المواضيع
مشروع الماسح الضوئي Scanner
شرح - سحب الصور بأستخدام الماسح الضوئي (السكانر ) image scan
RE: استفسار عن كود - عبد العزيز البسكري - 14-12-17
السّلام عليكم و رحمة الله و بركاته
تسلم أخي الكريم " طالب برمجة " على رابط الملف الرّائع لعمل السكانر
الدّال على الخير كفاعله
جزاك الله أحسن من ذلك و نفع بك الاسلام و المسلمين إن شاء الله
بعد إذن صاحب الموضوع ..
أخي الكريم أوّل مرّة أرى فورم بالعديد من End Class
فلم أفهم بدايته من نهايته
فلو تكرّمت و كان ذلك بالإمكان إضافة زر الحفظ للصّورة بأي قرص من أقراص الجهاز و ليكن مثلاً C
بارك الله فيك و لك مقدّمًا و رزقك من حيث تحتسب و من حيث لا تحتسب
تحياتي
RE: استفسار عن كود - طالب برمجة - 15-12-17
لم أتعامل من قبل مع الماسح الضوئي،
بالاضافة أنه ليس لدي ماسح ضوئي لتجربة المرفق،
عندما شاهدت الكود لم أفهمه.
RE: استفسار عن كود - عبد العزيز البسكري - 15-12-17
(15-12-17, 12:46 AM)طالب برمجة كتب : لم أتعامل من قبل مع الماسح الضوئي،
بالاضافة أنه ليس لدي ماسح ضوئي لتجربة المرفق،
عندما شاهدت الكود لم أفهمه.
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك أخي الكريم و جزاك خير الجزاء بكل الحالات
" الباب لي يجيلك منّو ..........................سدّوا واستريح "
أنا كذلك استغنيت عن المشروع بما فيه لأنّي ببساطة تعبت في إيجاد الوسيلة لنسخ على الأقل محتوياته أو تكييفها لما يناسبني
تحياتي
RE: استفسار عن كود - طالب برمجة - 15-12-17
لا يوجد .......................... ولا حاجة
المسألة في معرفة الكود
استطعت اختصار الكود وتوصلت للتالي:
اعمل مشروع وقم بتضمين المكتبتان التاليتان:
Leadtools.dll
Leadtools.Twain.dll
وفي الفورم ضع زرين وأداة صورة
PHP كود :
Public Class Form1
Private WithEvents TwainSession1 As New Leadtools.Twain.TwainSession
Private Sub TwainSession1_AcquirePage(ByVal sender As Object, ByVal e As Leadtools.Twain.TwainAcquirePageEventArgs) Handles TwainSession1.AcquirePage
If Not IsNothing(e.Image) Then
PictureBox1.Image = e.Image.ConvertToGdiPlusImage
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Me.TwainSession1.Startup(Me, "Scan Technologies, Inc.", "Abdulla Scanner .NET", "Version 16", "Abdulla Twain test sample", Leadtools.Twain.TwainStartupFlags.None)
Me.TwainSession1.Acquire(Leadtools.Twain.TwainUserInterfaceFlags.Show)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Not IsNumeric(PictureBox1.Image) Then
Using save As New SaveFileDialog With {.Filter = "Images|*.png"}
If save.ShowDialog = vbOK Then
PictureBox1.Image.Save(save.FileName, Imaging.ImageFormat.Png)
End If
End Using
End If
End Sub
End Class
RE: استفسار عن كود - عبد العزيز البسكري - 15-12-17
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و جزاك خير الجزاء و زادها بموازين حسناتك إن شاء الله
تحياتي
RE: استفسار عن كود - طالب برمجة - 15-12-17
هل تم تجربة مشاركتي الأخيرة من عضو لديه ماسح ضوئي وعمل بنجاح؟
RE: استفسار عن كود - عبد العزيز البسكري - 15-12-17
(15-12-17, 04:10 PM)طالب برمجة كتب : هل تم تجربة مشاركتي الأخيرة من عضو لديه ماسح ضوئي وعمل بنجاح؟
السّلام عليكم و رحمة الله و بركاته
مع الأسف المثال لم يعمل أخي الكريم .. عند محاولة تشغيل المشروع تأتي الرسالة التالية ..
تحياتي
RE: استفسار عن كود - طالب برمجة - 15-12-17
قم بتعديل startup في الملف App.config الموجود ضمت قائمة ملفات المشروع
إن وجدت الملف App.config ولم تجد الجزء startup فاكتبه في نهاية الملف قبل السطر الأخير
PHP كود :
<startup useLegacyV2RuntimeActivationPolicy="true">
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0,Profile=Client"/>
</startup>