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

كيف يتم ربط الماسح مع الفيجوال ...وكيف يتم اضافة مكتبة TWIN

حمل المشروع المرفق مشاركة ابوليلى من هنا
http://vb4arb.com/vb/showthread.php?tid=21129

وللمزيد من المكتبات والمناقشات حولها ابحث في المنتدى فهناك الكثير من المواضيع ذات العلاقة

طريقة التعامل مع الاسكنر

اولاً يجب إرفاق مكتبة YAMTwinDll.dll الى المشروع

ثانياً : اكتب هذا في أعلى نافذة الكود للتعامل مع مكتبة WIA الخاصة بالاسكنر


اظف هذا الكود في Button لإستدعاء الحدث scanMe لسحب الصورة من الاسكنر وإظافتها PictureBox


هذا حدث سحب الصورة من الاسكنر ...

.... انتهى ...

ممكن نستخدم نفس هذه المكتبة في VB.NET

(13-08-17, 06:36 PM)NosaNO كتب : [ -> ]ممكن نستخدم نفس هذه المكتبة في VB.NET

نعم هي تستخدم في VB.NET

(13-08-17, 05:01 PM)ابو خالد كتب : [ -> ]طريقة التعامل مع الاسكنر

اولاً يجب إرفاق مكتبة YAMTwinDll.dll الى المشروع

ثانياً : اكتب هذا في أعلى نافذة الكود للتعامل مع مكتبة WIA الخاصة بالاسكنر

PHP كود :

Imports System.IO
Imports System.Drawing.Imaging
Imports WIA 


اظف هذا الكود في Button لإستدعاء الحدث scanMe لسحب الصورة من الاسكنر وإظافتها PictureBox

PHP كود :

 Dim myMS As MemoryStream
            myMS = New MemoryStream(scanMe(300, 11.6, 8.3, False, False))
            PictureBox1.Image = Image.FromStream(myMS)
            PictureBox1.SizeMode = PictureBoxSizeMode.Zoom 


هذا حدث سحب الصورة من الاسكنر ...

PHP كود :

Private Function scanMe(ByVal myDPI As Integer, ByVal myHeight As Double, ByVal myWidth As Double, ByVal ShowSelectScanner As Boolean, ByVal ShowScanPreview As Boolean) As Byte()
        Dim CD As WIA.CommonDialog = New WIA.CommonDialog
        Dim device As WIA.Device = CD.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, ShowSelectScanner, False)
        Dim item As WIA.Item = device.Items(1)
        Try
            With item
                .Properties("Horizontal Resolution").Value = myDPI
                .Properties("Vertical Resolution").Value = myDPI
                .Properties("Horizontal Extent").Value = myDPI * myWidth
                .Properties("Vertical Extent").Value = myDPI * myHeight
            End With
            Dim F As WIA.ImageFile
            If ShowScanPreview Then
                F = CD.ShowAcquireImage(WiaDeviceType.ScannerDeviceType, WiaImageIntent.ColorIntent, WiaImageBias.MaximizeQuality, WIA.FormatID.wiaFormatJPEG, False, True, False)
            Else
                F = CD.ShowTransfer(item, WIA.FormatID.wiaFormatJPEG, False)
            End If
            Dim myBuffer As Byte() = F.FileData.BinaryData
            Return myBuffer
        Catch ex As Exception
            MsgBox(ex.Message)
            Return Nothing
        End Try
    End Function 


.... انتهى ...

كيف يتم ارفاق المكتبة ؟؟

---

(13-08-17, 03:47 PM)محمد كريّم كتب : [ -> ]حمل المشروع المرفق مشاركة ابوليلى من هنا
http://vb4arb.com/vb/showthread.php?tid=21129

وللمزيد من المكتبات والمناقشات حولها ابحث في المنتدى فهناك الكثير من المواضيع ذات العلاقة

اغلب الملفات المرفقة لا تنفتح عندي.....

يتم إرفاق المكتبة من قائمة Project ثم تختار Add Reference

ستفتح نافذة من Browse اختر المكتبة --- وموافق

كذا تكون ارفقت المكتبة

والبرنامج بيشتغل معك 100% دام كاتب الاكواد بشكل صحيح

(14-08-17, 11:59 AM)ابو محمد القحطاني كتب : [ -> ]يتم إرفاق المكتبة من قائمة Project ثم تختار Add Reference

ستفتح نافذة من Browse اختر المكتبة --- وموافق

كذا تكون ارفقت المكتبة

والبرنامج بيشتغل معك 100% دام كاتب الاكواد بشكل صحيح

قمت بتنزيلها واتبعت خطواتك ولاكن لم يظهر لي ...هل يجب حفظه بمسار معين ام ماذا؟

اخي ممكن المكتبه YAMTwinDll.dll 

لم احصل عليها