[asemshahen5]

عدل كود الحفظ الى الكود التالي :

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Not System.IO.Directory.Exists("D:\" & "مستندات السكانر" & "\") Then
            System.IO.Directory.CreateDirectory("D:\" & "مستندات السكانر" & "\")
        End If
        Dim PicName As String = Now.ToString("yyyy_MM_dd_hh_mm_ss_tt.Bmp")
        EZTwain.AcquireToFileName(Me.Handle, PicName) ' يقوم باستخراج الصورة من الماسح الضوئي وحفظها في الهاردسك
        PictureBox1.Image = Image.FromFile(PicName) ' لجلب الصورة في البكتشر بوكس وعرضها
    End Sub 


و كود الفورم 2 لود الى :

PHP كود :

   Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        If Not System.IO.Directory.Exists("D:\" & "مستندات السكانر" & "\") Then
            System.IO.Directory.CreateDirectory("D:\" & "مستندات السكانر" & "\")
        End If
        DataGridView1.Rows.Clear()
        Dim i As Integer = 0
        For Each FileName As String In IO.Directory.GetFiles("D:\" & "مستندات السكانر" & "\", "*.Bmp")
            i += 1
            DataGridView1.Rows.Add(i, FileName)
        Next
        PictureBox1.Image = Image.FromFile(DataGridView1.CurrentRow.Cells(1).Value.ToString)
    End Sub 


والله الموفق .