تغیر سازی عکس

[karim orooji]

با سلام به دوستان گلم
چطوری میشه کسی رو وارد picturebox کرد و سایر رو به دلخواه تغییر داد و سپس اونو ذخیره کرد
با تشکر

[Netsky]

سلام دوست عزیز .
میتونی با استفاده از کد زیر عکست رو تغییر اندازه بدی . قبلش یه picturebox روی فرمت بگذار . و بعد کد زیر رو بنویس :



Dim GR As Graphics = PictureBox1.CreateGraphics
GR.DrawImage(Image.FromFile("C:\1.bmp"), 0, 0, 300, 300)

اون دو جایی که نوشته شده 300 میتونی اندازه عکس رو مشخص کنی .
البته واسه Save کردنش باید یه راهیی خودت پیدا کنی چون من هرکاری کردم موفق به اینکار نشدم .

[karim orooji]

یکی کمکم کنه حالا چطوری ذخیره کنم

[sari-1369]

دوست عزیز ، این تابع 4 تا پارامتر ورودی میگیره و بقیه کار هارو خودش انجام میده .

1. عکس اصلی
2. طول
3. عرض
4. مسیر ذخیره فایل نهایی


Public Sub resize(ByVal img As Image, ByVal w As Integer, ByVal h As Integer, ByVal savepath As String)
Using bmp2 As New System.Drawing.Bitmap(img, New System.Drawing.Size(w, h))
bmp2.Save(savepath, System.Drawing.Imaging.ImageFormat.Jpeg)
End Using
End Sub