الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه الفيلسوف111 في 29 أغسطس 2013 · 7 رد · 1,114 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

مثلا لدي صورة

"C:\Users\TARIQ3\Desktop\1.JPG"

ابعادها  2291*2341 بكسل

اريد تصغيرها الى  640*480 بكسل

شاكرا ومقدرا لك تعاونكم البناء

طارق العيد

#2

يمكنك من خلال الخصائص في النموذج ضبط حجم الصورة المطلوبة مهما كانت

 

post-276667-0-62316900-1377801038_thumb.

#3

ويمكنك ايضا باستخدام هذا البرنامج

Microsoft Office Picture Manager

 

post-276667-0-73587200-1377801876_thumb.

 

post-276667-0-57936900-1377801895_thumb.

#4

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

طارق العيد

#5

اشكر كل من حاول المساعدة في هذا المنتدى المتميز

واود اخباركم باني وجدت المطلوب باستخدام اداة اسمها PhotoResize400

من موقع

http://www.freewarefiles.com/Picture-Resizer_program_15820.html

 

وباستخدام الكود

Private Sub rziz1_Click()
Call ResizePhoto
End Sub
Public Function ResizePhoto()

On Error GoTo ERRORHANDLER

Dim RetVal
Dim strDest As String
Dim strSource As String

'اسم ومسار الصورة بعد اعادة التحجيم

strDest = "-c" & CurrentProject.Path & "\21jj.JPG"

strSource = Me.Pic1

'يمكن تغيير الابعاد بتغير التسمية كما هو مذكور ادناه مثل    photoresize400  الى   photoresize200.exe

RetVal = Shell(CurrentProject.Path & "\PhotoResize200.exe -n -q100 -o """ & strDest & """ """ & strSource & """", vbHide)

Exit Function

ERRORHANDLER:

MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description

End Function

كما يمكن تغير الابعاد بتغيير اسم الاداة الى الاسماء الاتية

For example, To generate 200 pixels images, simply rename the application to PhotoResize200.exe.

Name codes overview

Resizing method

  • PhotoResize400.exe - maximum side 400 pixels.
  • PhotoResize_400.exe - minimum side 400 pixels.
  • PhotoResizeF400x300.exe - frame size of 400x300 pixels. The resulting image width will be smaller or equal to 400 and its height will be smaller or equal to 300 pixels.
  • PhotoResizeW400.exe - width set to 400 pixels. Height automatically computed to keep aspect ratio.
  • PhotoResizeH400.exe - height set to 400 pixels. Width automatically computed to keep aspect ratio.
  • PhotoResizeP50.exe - resize to 50%.
  • PhotoResize400x300.exe - resize to exactly 400x300 pixels. Aspect ratio is not preserved.
  • PhotoResizeD100.exe - resize to 100DPI. Physical size stays the same.
  • PhotoResizeD100T.exe - overwrite the resolution information in the header without touching the pixels.
  • PhotoResizeK20.exe - resize to approximate maximum size of 20kB.
  • PhotoResizeG1024x768.exe - use content-aware resizing to change aspect ratio while preserving content.
  • PhotoResizeA400x300.exe - crop and resize to 400x300 pixels. The central part is preserved and resized while the borders are cropped.
  • PhotoResizeA400x300x5.exe - extend canvas and resize to 400x300 pixels. The last number (0-9) controls canvas brightness.
  • واليكم الاداة مرفقة مع هذا المشاركة

تم تعديل هذه المشاركة بواسطة الفيلسوف111 في 30 أغسطس 2013 في 13:37

1

طارق العيد

#6

ملف اداة PhotoResize200.rarPhotoResiz400.exe

طارق العيد

#7
الفيلسوف111 كتب:

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

 

شكرا لك وسعيد بصداقتك

والحمد لله ان وجدت مبتغاك

#8

اما انا ، فالبرنامج المفضل عندي هو:

http://www.irfanview.net

 

وهو كبرنامج ، لا استطيع ان اعمل على كمبيوتر بدونه ، وبه اوامر commandline مما لذ وطاب :) ، ويستطيع اكسس ان يتعامل مع اوامره بسهولة ويُسر :) ، وعند تنصينه ، هناك ملف به جميع هذه الاوامر.

 

جعفر

1

مواضيع مشابهة