کاهش کیفیت عکس

[mehran901]

سلام بردوستان
کسی ایده ای راهی چیزی به ذهنش میرسه که چطوری DPI عکس رو کم کنیم ...؟

من ی عکسی دارم که کیفیتش بالاست چه راه هایی واسه کم کردن کیفیتش به ذهنتون میرسه ؟!! میخوام بنا به نیاز رزولشن عکس رو کم کنم
درهرصورت از جوابتون خوشحال میشم

تشکر

[the king]

سلام بردوستان
کسی ایده ای راهی چیزی به ذهنش میرسه که چطوری DPI عکس رو کم کنیم ...؟

من ی عکسی دارم که کیفیتش بالاست چه راه هایی واسه کم کردن کیفیتش به ذهنتون میرسه ؟!! میخوام بنا به نیاز رزولشن عکس رو کم کنم
درهرصورت از جوابتون خوشحال میشم

تشکر

داخل یک PictureBox نمایش اش بدید و بعد ابعاد اش رو کاهش بدید و ذخیره کنید، البته خروجی bmp میشه.
فرضا ابعاد اش رو به 25 درصد ابعاد قبلی اش تبدیل کنید :

Dim pic As StdPicture, factor As Single
factor = 0.25
Set pic = LoadPicture("C:\input.jpg")
With Picture1
.BorderStyle = vbBSNone
.Width = ScaleX(pic.Width, vbHimetric, vbTwips) * factor
.Height = ScaleX(pic.Height, vbHimetric, vbTwips) * factor
Picture1.Cls
.AutoRedraw = True
Picture1.PaintPicture pic, 0, 0, .Width, .Height
SavePicture .Image, "C:\output.jpg"
End With