سلام من این کدها رو واسه کراپ کردن تصویر استفاده کردم جواب میده فقط میشه یه کاری کردکه اندازه کراپ رو خودمون بهش بدیم و خروجیش هم کیفیتش بهتر شه
این میاد عکس بزرگ رو میگیره و در اندازه ای که دادیم کراپ میکنه و با نام 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
سوال
majid08 266
سلام من این کدها رو واسه کراپ کردن تصویر استفاده کردم جواب میده فقط میشه یه کاری کردکه اندازه کراپ رو خودمون بهش بدیم و خروجیش هم کیفیتش بهتر شه
این میاد عکس بزرگ رو میگیره و در اندازه ای که دادیم کراپ میکنه و با نام 1.jpg ذخیره میکنه تو گوشی ولی کیفیت عکس رو داغون میکنه
لطفا روی گوشی یا ماشین مجازی تست کنید
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.