كوچك كردن سايز عكس

[sara_t]

سلام دوستان
من ميخام يه برنامه بنويسم كه بدون اينكه شكل كلي عكس رو از بين ببره اونو كوچك كنه.
مثلا سايز عكس رو به 32*64 تغيير بدم .يعني 32 تا پيكسل عرض و 64 تا پيكسل طول باشه.
اما با كم كردن عرض و طول در يك برنامه تصوير خراب ميشه و تصوير درستي شكل نميگيره.
ممنون ميشم كمك كنيد.

[Mohamad ghorbani]

اینم جواب:

[sara_t]

ممنون اما زمانيكه عكس رو سيو ميكنيم با همون اندازه اول سيو ميكنه نه اون اندازه اي كه تصوير رو كوچيك كرديم.
من برنامه رو با picturebox نوشتم و خاصيت استرچ رو بهش اضافه كردم اما فقط تا اندازه 196*136 عكس رو كوچك ميكنه و تازه همه عكس هم نيست.
اينم كد:
Private Sub Command1_Click()
Picture1.Height = Picture1.Height \ 2
Picture1.Width = Picture1.Width \ 2
SavePicture Picture1.Image, "C:\test.bmp"
End Sub

Sub picStrech()
Picture1.Picture = Image1.Picture
Picture1.ScaleMode = 3
Picture1.AutoRedraw = True
Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Picture1.Picture.Width / 26.46, Picture1.Picture.Height / 26.46
Picture1.Picture = Picture1.Image

End Sub

Private Sub Picture1_Click()
picStrech
End Sub

[Mr'Jamshidy]

چرا با توابع API کار نمیکنی؟

در حال حاضر کد خاصی ندارم اما به محض دسترسی به جواب، همین پست رو ویرایش میکنم

[sara_t]

ممنون
هدف اصلي اينه كه به حدود 64*32 تا پيكسل برسه اما شكل كلي تصويرم خراب نشه يه نرم افزار ديدم كه اينطور كار ميكنه منتها اسمشو فراموش كردم. ممنون