15-12-17, 04:07 AM
(آخر تعديل لهذه المشاركة : 16-12-17, 12:48 AM {2} بواسطة طالب برمجة.)
لا يوجد .......................... ولا حاجة
المسألة في معرفة الكود
استطعت اختصار الكود وتوصلت للتالي:
اعمل مشروع وقم بتضمين المكتبتان التاليتان:
Leadtools.dll
Leadtools.Twain.dll
وفي الفورم ضع زرين وأداة صورة
تبقى مسألة تجربته على من عضو لديه ماسح ضوئي
المسألة في معرفة الكود
استطعت اختصار الكود وتوصلت للتالي:
اعمل مشروع وقم بتضمين المكتبتان التاليتان:
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

