(02-04-20, 11:34 PM)bidaya كتب : [ -> ]مدام اخي تريد حفظ الصورة الموالية بنفس الاسم هل تريد استبدالها ام مذا لانه انت واضع اسم واحد لاي صورة تريد حفظها وهذا هو سبب المشكل
أنا أحتاج لمعرفة الصوره المحدده أولاً ومن ثم بعد التأكيد تصغير حجمها وضعها في أداة الصور
بأي طريقة كانت وإذا كان بالأمكان أن أجلعها خلفية شفافه png فقد أكتمل العرس
نفس اللي قلته لك في اول رد
لكن الان الخطأ بسبب ان الوضيفة bmp.save تصدر خطأ اذا حاولت تحفظ صورة بنفس اسم صورة موجودة
يعني اما تحفظ كل صورة باسم يختلف
او انك تنقل الصورة القديمة من المجلد PICES الى مجلد اخر قبل تحفظ الجديدة وبعد ماتقفل البرنامج تردها
واذا حبيت تتاكد ارفقت لك صورة من موقع مايكروسفت فيها شرح استخدام امر الحفظ للصور
او اقرا هنا
IMAGE.SAVE
[
attachment=24322]
ستزول المشكلة لو غيرت طريقة تحميل الصورة
كود :
Prd_Photos.ImageLocation = (Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG")
ليكون الكود الكامل بهذه الصورة
كود :
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)))
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.ImageLocation = (Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG")
End If