منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : استفسار عن كود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم

اريد كود سحب الصورة من الاسكانر ووضعها في البكتشر بوكس



شكرا لكم ..
السّلام عليكم و رحمة الله و بركاته
تسلم أخي الكريم " طالب برمجة " على رابط الملف الرّائع لعمل السكانر
الدّال على الخير كفاعله
جزاك الله أحسن من ذلك و نفع بك الاسلام و المسلمين إن شاء الله
بعد إذن صاحب الموضوع ..
أخي الكريم أوّل مرّة أرى فورم بالعديد من End Class
فلم أفهم بدايته من نهايته
فلو تكرّمت و كان ذلك بالإمكان إضافة زر الحفظ للصّورة بأي قرص من أقراص الجهاز و ليكن مثلاً C
بارك الله فيك و لك مقدّمًا و رزقك من حيث تحتسب و من حيث لا تحتسب
تحياتي
لم أتعامل من قبل مع الماسح الضوئي،
بالاضافة أنه ليس لدي ماسح ضوئي لتجربة المرفق،
عندما شاهدت الكود لم أفهمه.
(15-12-17, 12:46 AM)طالب برمجة كتب : [ -> ]لم أتعامل من قبل مع الماسح الضوئي،
بالاضافة أنه ليس لدي ماسح ضوئي لتجربة المرفق،
عندما شاهدت الكود لم أفهمه.


السّلام عليكم و رحمة الله و بركاته

بارك الله فيك أخي الكريم و جزاك خير الجزاء بكل الحالات
" الباب لي يجيلك منّو ..........................سدّوا واستريح "
أنا كذلك استغنيت عن المشروع بما فيه لأنّي ببساطة تعبت في إيجاد الوسيلة لنسخ على الأقل محتوياته أو تكييفها لما يناسبني
تحياتي
لا يوجد .......................... ولا حاجة
المسألة في معرفة الكود

استطعت اختصار الكود وتوصلت للتالي:
اعمل مشروع وقم بتضمين المكتبتان التاليتان:
Leadtools.dll
Leadtools.Twain.dll

وفي الفورم ضع زرين وأداة صورة
PHP كود :
Public Class Form1

    Private WithEvents TwainSession1 
As New Leadtools.Twain.TwainSession
    Private Sub TwainSession1_AcquirePage
(ByVal sender As ObjectByVal e As Leadtools.Twain.TwainAcquirePageEventArgsHandles TwainSession1.AcquirePage
        If Not IsNothing
(e.ImageThen
            PictureBox1
.Image e.Image.ConvertToGdiPlusImage
        End 
If
 
   End Sub

    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles Button2.Click
        If Not IsNumeric
(PictureBox1.ImageThen
            Using save 
As New SaveFileDialog With {.Filter "Images|*.png"}
 
               If save.ShowDialog vbOK Then
                    PictureBox1
.Image.Save(save.FileNameImaging.ImageFormat.Png)
 
               End If
 
           End Using
        End 
If
 
   End Sub

End 
Class 
تبقى مسألة تجربته على من عضو لديه ماسح ضوئي
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و جزاك خير الجزاء و زادها بموازين حسناتك إن شاء الله
تحياتي
هل تم تجربة مشاركتي الأخيرة من عضو لديه ماسح ضوئي وعمل بنجاح؟
(15-12-17, 04:10 PM)طالب برمجة كتب : [ -> ]هل تم تجربة مشاركتي الأخيرة من عضو لديه ماسح ضوئي وعمل بنجاح؟

السّلام عليكم و رحمة الله و بركاته

مع الأسف المثال لم يعمل أخي الكريم .. عند محاولة تشغيل المشروع تأتي الرسالة التالية ..
تحياتي
قم بتعديل startup في الملف App.config الموجود ضمت قائمة ملفات المشروع

إن وجدت الملف App.config ولم تجد الجزء startup فاكتبه في نهاية الملف قبل السطر الأخير
PHP كود :
<startup useLegacyV2RuntimeActivationPolicy="true">
 
 <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0,Profile=Client"/>
</
startup
الصفحات : 1 2