- Jun 6, 2020
- 11,559
- 4,422
Buen dia a todos, esty usando este código que lo encuentro en todos lados.
Sub camera(Directory As String, PictureName As String)
Dim i As Intent
i.Initialize("android.media.action.IMAGE_CAPTURE", "" )
i.PutExtra("crop", "true") 'crop ON
i.PutExtra("aspectX", 0) 'crop aspects
i.PutExtra("aspectY", 0) 'crop aspects
i.PutExtra("outputX", 200) 'crop size
i.PutExtra("outputY", 150) 'crop size
i.PutExtra("output", ParseUri("file://" & File.Combine(Directory, PictureName)))
StartActivity(i)
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
El tema es que:
i.PutExtra("outputX", 200) 'crop size
i.PutExtra("outputY", 150) 'crop size
No fuencionan, no se respetan los valores, solo quedan los valores por...
Sub camera(Directory As String, PictureName As String)
Dim i As Intent
i.Initialize("android.media.action.IMAGE_CAPTURE", "" )
i.PutExtra("crop", "true") 'crop ON
i.PutExtra("aspectX", 0) 'crop aspects
i.PutExtra("aspectY", 0) 'crop aspects
i.PutExtra("outputX", 200) 'crop size
i.PutExtra("outputY", 150) 'crop size
i.PutExtra("output", ParseUri("file://" & File.Combine(Directory, PictureName)))
StartActivity(i)
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
El tema es que:
i.PutExtra("outputX", 200) 'crop size
i.PutExtra("outputY", 150) 'crop size
No fuencionan, no se respetan los valores, solo quedan los valores por...
برای دیدن لینک ها باید ثبت نام کنید
برای دیدن لینک ها باید ثبت نام کنید