[DOX.1]

(02-04-20, 09:58 PM)معاند الحظ كتب : اخوي راجع ردي عليك

أعتذر يا أخوي معاند مقدر وشاكر لك أهتمامك بجرب الأن 
ولكن النص الموجود في التكست تسلسل رقمي غير قابل لتكرار

---

(02-04-20, 10:32 PM)DOX.1 كتب :

(02-04-20, 09:58 PM)معاند الحظ كتب : اخوي راجع ردي عليك

أعتذر يا أخوي معاند مقدر وشاكر لك أهتمامك بجرب الأن 
ولكن النص الموجود في التكست تسلسل رقمي غير قابل لتكرار

كود :

       Pdox.Image = My.Resources.noimage
       Dim a As New OpenFileDialog
       With a
           .AddExtension = True
           .CheckPathExists = True
           .CheckFileExists = True
           .Title = "أختر صورة التي تريدها"
           .Filter = "Choose Image(*.PNG;*.GIF;*.JPG;*.JPEG)|*.PNG;*.GIF;*.JPG;*.JPEG | All Files(*.*)|*.*"
           If .ShowDialog = DialogResult.OK Then
               Dim bmp As New Bitmap(Image.FromFile(.FileName & ""), New Size(Convert.ToInt32(110), Convert.ToInt32(70)))

               'Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG"
               If IO.Directory.Exists(Application.StartupPath & "\Pics") = True Then
                   bmp.Save(Application.StartupPath & "\Pices\" & Photo_Num)
               Else
                   IO.Directory.CreateDirectory(Application.StartupPath & "\Pics")
                   bmp.Save(Application.StartupPath & "\Pices\" & Photo_Num + ".PNG")
               End If
               Pdox.Image = Image.FromFile(Application.StartupPath & "\Pices\" & Photo_Num)
               bmp.Dispose() : a.Dispose()
           End If
       End With

هذا الكود الأخير اللي أشتغلت عليه بنفس التعديل اللي موجود عندك ولازالت المشكلة
أستفسـار يا أخوان هل يمكن أزالة الخلفية لصوره بحيث تكون PNG