با سلام و سپاس 

 

در این ساعت از سایت یاهو ۹۸ 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

 

دانلود سورس