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

السلام عليكم ورحمة الله وبركاته ،،،

بعد الإعتذار عن المشاركاتك السابقة التي لم تحصل على رد فيها لسبب او للآخر ،،،

بالنسبة لعمليات حفظ الصور بتنسيقها او بتنسيق آخر فالكود SavePicture هو الكفيل بهذه المهنة .

مثال /

SavePicture Picture1.Picture, "FileName.jpg"

ودمتم موفقين .

شكرا اخي visitor على الرد السريع لكن سبق لي ان جربت هذا الأمر من قبل مع piantpicture وفجئت انه يحفظ نفس الصورة الأصلية دون اي تعديل في الأبعاد الرجاء فحص الكود التالي

Private Sub Form_Load()

Picture1.Visible = False

Picture1.Picture = LoadPicture("c:filename.jpg")

Picture1.Width = Picture1.Width / 4

Picture1.Height = Picture1.Height / 4

Picture1.PaintPicture Picture1.Picture, 0, 0, Picture2.Width / 4, Picture2.Height / 4

Picture1.Visible = True

SavePicture Picture1.Picture, "c:test.jpg"

End Sub

علما بأن الكود السابق لايعمل لي التغيير المطلوب في الأبعاد بنسبة 25% لذلك اضر الى استخدام picure box اخر لفتح الصورة الأصلية فيه ثم نسخها الى picture1 لعمل التغيير المطلوب وعند استدعاء savepicture picure1.picture احصل على رسالة خطأ فما الحل

واسف على الاطالة لكنها مشكلة كبيرة بالنسبة لي

الرجوا المعذرة اخي لإني حاولة ..... ولكن كللت كل المحاولات بالفشل .

اخي وجدت الحل بفضل من الله

الحل استخدم هذه الكود /

SavePicture Picture1.Image, "c:test.jpg"

عوضا عن

SavePicture Picture1.Picture, "c:test.jpg"

تعحز الكلمات عن الشكر ، ويعجز اللسان عن المدح ، لكن كل ما اقدر اقله لك هو جزاك الله خيرا أخي visitor وجعله الله في ميزان حسناتك:)(f)