تغير حجم الصورة

[ابو ياسين المشولي]

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

اخواني مشرفي واعضاء المنتدى الكرام

هل يوجد طريقه بتغير حجم الصورة

هل في كود اقدر اغير الحجم بالكود

ولكم مني جزيل الشكر

مثال كما يتم تغير الصورة بالرسام

كيف اطبقها بالاكسس

[kanory]

وعليكم السلام ورحمة الله وبركاته ...... أذا كان تصغير الصورة داخل النموذج ... جرب هذا الكود

Dim intWidth As Integer
Dim intHeight As Integer

With Me![FormSub].Form![formsubsub].Form![Image3]
    intWidth = .Width
    intHeight = .Height

    .Width = intWidth / 1.05
    .Height = intHeight / 1.05
    .SizeMode = acOLESizeZoom
End With
DoEvents

 

[ابو ياسين المشولي]

لا اخيkanory

ليس هذا ما اقصد

قد شفت  هذا الكود من قبل

عندي الصورة مثال في هذا المسار

"D:\بـرنـامـج الـخـيـاط\DATA\StPic" & ".jpg"

 

[عاشق الرقي]

اخي Kanory

تستاهل عضوية التميز على مبادراتك السريعة

واجتهاداتك

وفقك الله والجميع

[kanory]

اخي @عاشق الرقي هذا من كرمك . هذا المنتدى لطالما استفدنا منه .. يجب ان نعطى قدر استطاعتنا لاننا لازلنا نتعلم منكم جميعا ... 

[عاشق الرقي]

تسلم

عندي موضوع لو حالفك الحظ في عمل الكود في المواضيع الجديد لاهنت

تم تعديل يونيو 12, 2018 بواسطه عاشق الرقي

[ابو ياسين المشولي]

للرفع

[jjafferr]

وعليكم السلام اخوي ابو ياسين

 

اعطني شرح للمطلوب لوسمحت ، وبالتفصيل ، علشان نفهمه ونحاول نعطيك جواب ان شاء الله

 

جعفر

[ابو ياسين المشولي]

اخي جعفر jjafferr

عند صور مقاساتها 1650*3200

مثلا

اريد احولها الى

800*650

كما تغيرها في الرسام

اريد اغيرها عبر كود

 

http://www.mediafire.com/file/2u7c7b8d7w6xvt2/Desktop.rar/file

تم تعديل يونيو 14, 2018 بواسطه ابو ياسين المشولي

[jjafferr]

السلام عليكم اخوي ابو ياسين

 

هل هذا الذي تريده ، ولكن طبعا بتغيير بسيط حتى يلائم برنامجك:

جعفر

[ابو ياسين المشولي]

1 ساعه مضت, jjafferr said:

السلام عليكم اخوي ابو ياسين

 

هل هذا الذي تريده ، ولكن طبعا بتغيير بسيط حتى يلائم برنامجك:

جعفر

تسلم اخي على الهديه

انا مسافر

اذا وجد باليمن نت نتواصل

[jjafferr]

تم إضافة ميزة في الموضوع اعلاة ، وهي التي تحتاج لها في برنامجك

 

جعفر

[ابو ياسين المشولي]

تسلم اخي جعفر

فكرة ممتازة

ولكن للاسف انا كان ودي تغير حجم الصورة الاساسيه

وهي في الجلد