[طالب برمجة]

لا يوجد .......................... ولا حاجة
المسألة في معرفة الكود

استطعت اختصار الكود وتوصلت للتالي:
اعمل مشروع وقم بتضمين المكتبتان التاليتان:
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 


تبقى مسألة تجربته على من عضو لديه ماسح ضوئي