کراپ کردن تصویر

[majid08 266]

سلام من این کدها رو واسه کراپ  کردن تصویر استفاده کردم جواب میده فقط میشه یه کاری کردکه اندازه کراپ  رو خودمون بهش بدیم و خروجیش هم کیفیتش بهتر شه

این میاد عکس بزرگ رو میگیره و در اندازه ای که دادیم کراپ  میکنه و با نام 1.jpg ذخیره میکنه تو گوشی ولی کیفیت عکس رو داغون میکنه

لطفا روی گوشی  یا ماشین مجازی تست کنید

Dim onoff As Boolean
		Dim ImageView1 As ImageView
		

End Sub


Sub Activity_Resume
	If onoff = True Then
	onoff=False
	cover_img.Visible = True
	cover_img.Bitmap = LoadBitmapSample(File.DirRootExternal, "1.jpg",cover_img.Width, cover_img.Height)

	End If
End Sub





Sub add_aks_click
		
		Galeria(File.DirRootExternal, "1.jpg")

End Sub





Sub ParseUri(FileName As String) As Object
 Dim r As Reflector
 Return r.RunStaticMethod("android.net.Uri", "parse", Array As Object(FileName), Array As String("java.lang.String"))

End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Sub Galeria(Directory As String, PictureName As String)
	Dim i As Intent
	onoff = True
	i.Initialize(i.ACTION_PICK, "")
	i.SetType("image/*")
    i.PutExtra("output", ParseUri("file://" & File.Combine(Directory, PictureName))) 'output folder you set OpenCam(File.DirRootExternal, "1.jpg")
	i.PutExtra("crop", "true") 'crop ON
	i.PutExtra("aspectX", 0) 'crop aspects
	i.PutExtra("aspectY", 0) 'crop aspects
	i.PutExtra("outputX", 350) 'crop size
	i.PutExtra("outputY", 622) 'crop size
			StartActivity(i)

End Sub

[مهدی ایزدی 9,203]

درود

از این روش استفاده کردید ؟

http://answercenter.ir/topic/1056-%D8%A8%D8%B1%D8%B4-%D8%B9%DA%A9%D8%B3-crop

http://answercenter.ir/topic/5621-%D8%B3%D9%88%D8%B1%D8%B3-%D8%A7%D9%86%D8%AA%D8%AE%D8%A7%D8%A8-%D8%B9%DA%A9%D8%B3-%D8%A7%D8%B2-%DA%AF%D8%A7%D9%84%D8%B1%DB%8C-%D9%88-%D8%AF%D9%88%D8%B1%D8%A8%DB%8C%D9%86-%D9%88-crop-%DA%A9%D8%B1%D8%AF%D9%86%D8%B4/