Interessanter Weise funktioniert es, wenn ich das Bild über die Galerie lade.
Activity_Resume enthält dann immer noch zugewiesene Variablen.
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", 200) 'crop size
i.PutExtra("outputY", 150) 'crop size
StartActivity(i)
End Sub
Ich verwende hier übrigens den Ansatz von Douglas Farias.
https://www.b4x.com/android/forum/threads/native-camera-crop-native-galery-crop.41593/
Bei seinem Beispiel geht die APP auch nach einsatz der Camera in den Neustart.