(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
وللمزيد من المكتبات والمناقشات حولها ابحث في المنتدى فهناك الكثير من المواضيع ذات العلاقة
اغلب الملفات المرفقة لا تنفتح عندي.....