با سلام و سپاس
در این ساعت از سایت یاهو ۹۸ YAHOO98 برای کاربران عزیز :
سورس کد ذخیره عکس از ایمیج ویو رو مهیا کرده ایم که میتونید کیفیت ذخیره عکس رو انتخاب کنید .
قسمت مربوط به کیفیت عدد ۱۰۰ می باشد که میتونید ۱۰۰ رو تغییر بدید .
( کیفیت اصلی ۱۰۰ می باشد) .
Sub btn_Click
Dim bit1 As Bitmap
bit1 = ImageView1.Bitmap
Dim out As OutputStream
out=File.OpenOutput(File.DirRootExternal,"1.png",True)
bit1.WriteToStream(out, 100, "PNG")
out.Close
ToastMessageShow("عکس ذخیره شد",False)
End Sub
دانلود سورس