[صالح عبدالله]

السلام  عليكم ورحمة الله وبركاته 
 اريد فقط التعديل على الكود التالي حيث انه يأخذ الضورة من السكانر ثم يخزنها في المجلد الموضح في الكود بحيث يكون File name  يكون مصدره picturebox1  وليس السكانر  ثم يتم بعد ذلك الحفظ على هيئة PDF  ( السطر المطلوب للتعديل عليه هو السطر باللون الاحمر  ) شاكراً لكم تعاونكم 

      My.Computer.FileSystem.CreateDirectory("C:\aa_merge")

            Dim intPath1 As Integer = 0

            intPath1 = intPath1 + 1

            Dim filename As String

            My.Computer.FileSystem.CreateDirectory("C:\aa_merge\" & intPath1)

            filename = TwainHandler.ScanIt("C:\aa_merge\" & intPath1)

            PictureBox1.Image = Image.FromFile("C:\aa_merge\" & intPath1 & "\" + filename)

            txtSource.Text = "C:\aa_merge\" & intPath1

            txtDestination.Text = "C:\aa_merge\" & intPath1 & "\save.pdf"

[أبو خالد الشكري]

مرحبا بك
جرب كتابة السطر بالشكل التالي :

كود :

filename = TwainHandler.ScanIt("C:\aa_merge\" & intPath1.ToString())

[صالح عبدالله]

السلام عليكم ورحمة الله وبركاته 
الشكر الجزيل لك أستاذ خالد ربما لطول للشرح لم تتوضح الفكرة التي أريدها 
وللتوضيح يقوم السطر بحفظ الصورة في المسار المحدد من خلال السكانر والذي أريده أن يتم التعديل ليصبح حفظ الصورة من خلال picturebox1 
أتمنى أن يكون المطلوب واضح وقد عملت السطر التالي للتعديل ولكن لم ينجح معي 

 PictureBox1.Image = Image.FromFile("C:\aa_merge\" & intPath1)

مع التحية والشكر 

[أبو خالد الشكري]

جرب النعديل التالي أخي العزيز

كود :

PictureBox1.Image.Save ("C:\aa_merge\" & intPath1)