[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



   

[bidaya]

تفظل اخي جرب المرفق بعد التعديل

[DOX.1]

(02-04-20, 10:35 PM)bidaya كتب : تفظل اخي جرب المرفق بعد التعديل

نفس المشكلة أنت وضعت +1 وأصلاً التكست بكوكس اللي عندي رقم غير قابل لتكرار

[bidaya]

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

(02-04-20, 10:35 PM)bidaya كتب : تفظل اخي جرب المرفق بعد التعديل

نفس المشكلة أنت وضعت +1 وأصلاً التكست بكوكس اللي عندي رقم غير قابل لتكرار

اكي انت تريد الحفظ في اي مجلد  هل في Pices او في مجلد Pics

[DOX.1]

(02-04-20, 10:52 PM)bidaya كتب :

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

(02-04-20, 10:35 PM)bidaya كتب : تفظل اخي جرب المرفق بعد التعديل

نفس المشكلة أنت وضعت +1 وأصلاً التكست بكوكس اللي عندي رقم غير قابل لتكرار

اكي انت تريد الحفظ في اي مجلد  هل في Pices او في مجلد Pics

Pices  المجلد هذا الكود الأخير 

كود :

 Public Sub ChoosePitcerBox(Pdox As PictureBox, Photo_Num As String)
 
       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 & "\Pices") = True Then
                   bmp.Save(Application.StartupPath & "\Pices\" & Photo_Num + ".PNG")
               Else
                   IO.Directory.CreateDirectory(Application.StartupPath & "\Pices")
                   bmp.Save(Application.StartupPath & "\Pices\" & Photo_Num + ".PNG")
               End If
               Pdox.Image = Image.FromFile(Application.StartupPath & "\Pices\" & Photo_Num + ".PNG")
               bmp.Dispose() : a.Dispose()
           End If
       End With
   End Sub

[معاند الحظ]

اخوي هل لاحظت ان مسار حفظ الصورة ومسار تحميل الصورة غير متطابق مع المسار اللي انت وضعته حين انشأت مجلد pics

كود انشاء مجلد الحفظ له مسار غير المسار اللي انت تحاول تحفظ عليه
مجلد الحفظ في مسار البرنامج اسمه pics وانت تحاول الحفظ في نفس المسار لكن داخل مجلد اسمه pices وهذا المجلد غير موجود

انا حملت مشروعك وشغلته وصار معي الخطا وبعد ماعدلت اسم المجلد في مود الحفظ وكود تحميل الصور الى Application.StartupPath & \pics
اشتغل البرنامج تمام

[DOX.1]

(02-04-20, 10:57 PM)معاند الحظ كتب : اخوي هل لاحظت ان مسار حفظ الصورة ومسار تحميل الصورة غير متطابق مع المسار اللي انت وضعته حين انشأت مجلد pics

كود انشاء مجلد الحفظ له مسار غير المسار اللي انت تحاول تحفظ عليه
مجلد الحفظ في مسار البرنامج اسمه pics وانت تحاول الحفظ في نفس المسار لكن داخل مجلد اسمه pices وهذا المجلد غير موجود

انا حملت مشروعك وشغلته وصار معي الخطا وبعد ماعدلت اسم المجلد في مود الحفظ وكود تحميل الصور الى Application.StartupPath & \pics
اشتغل البرنامج تمام

جرب هذا الكود 


  WindowsApplication3.rar (الحجم : 80.81 ك ب / التحميلات : 25)

[معاند الحظ]

والله يا اخي ماني قادر احمل مشروعك رغم الحجم الصغير لانه كل ماقربر يكتمل يرجع يعيد التحميل

[DOX.1]

(02-04-20, 11:23 PM)معاند الحظ كتب : والله يا اخي ماني قادر احمل مشروعك رغم الحجم الصغير لانه كل ماقربر يكتمل يرجع يعيد التحميل

أشتغل على نفس المشروع وحظ الكود هذا imgeErorr

كود :

       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\" & CDec + ".PNG"
               If IO.Directory.Exists(Application.StartupPath & "\Pices") = True Then
                   bmp.Save(Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG")
               Else
                   IO.Directory.CreateDirectory(Application.StartupPath & "\Pices")
                   bmp.Save(Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG")
               End If
               Prd_Photos.Image = Image.FromFile(Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG")
               bmp.Dispose() : a.Dispose()
           End If
       End With

[bidaya]

مدام اخي تريد حفظ الصورة الموالية بنفس الاسم هل تريد استبدالها ام مذا لانه انت واضع اسم واحد لاي صورة تريد حفظها وهذا هو سبب المشكل