iOS Question iPad Pro 13.4.1 and SelectFromPhotoLibrary

[MarcoRome]

Hi all this code work without problem with iPhone:

Sub btnChoosePicture_Click
    Dim sf As Object = xui.Msgbox2Async( "VUOI CAMBIARE LA FOTO DEL TUO PROFILO ?", "App Leemon", "SI", "", "No", Null)
    Wait For (sf) Msgbox_Result (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        InitCamera
        cam.SelectFromSavedPhotos(Sender, cam.TYPE_IMAGE)
    End If
End Sub

But on iPad when i tap on button nothing happen ( No open Gallery )
if i have this code:

Sub btnChoosePicture_Click
        InitCamera
        cam.SelectFromSavedPhotos(Sender, cam.TYPE_IMAGE)
End Sub

without MsgBox2Async work without problem also on iPad

Any idea ?
Thank you
Marco

 

[MarcoRome]

if replace Sender with img_uno, work

cam.SelectFromSavedPhotos(img_uno, cam.TYPE_IMAGE)

 

[Deleted member 103]

without MsgBox2Async work without problem also on iPad

then only use Msgbox, MsgBox2Async is, in my opinion, not absolutely necessary in iOS.

 

[MarcoRome]

then only use Msgbox, MsgBox2Async is, in my opinion, not absolutely necessary in iOS.

Dear Filippo unfortunately it isn't so. Even by inserting an MsgBox2 on the ipad Pro 13.4.1 (both from tests carried out by us and from tests carried out by apple for this reason we realized that the ipad was not running) the problem remains

 

[Deleted member 103]

Try it this way, I'll do it that way too.

Sub btnChoosePicture_Click
    Dim image As ImageView = Sender
    InitCamera
    cam.SelectFromSavedPhotos(image, cam.TYPE_IMAGE)
End Sub

 

[Erel]

Change your code to:

Sub btnChoosePicture_Click
    Dim btn As B4XView = sender
    Dim sf As Object = xui.Msgbox2Async( "VUOI CAMBIARE LA FOTO DEL TUO PROFILO ?", "App Leemon", "SI", "", "No", Null)
    Wait For (sf) Msgbox_Result (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        InitCamera
        cam.SelectFromSavedPhotos(btn, cam.TYPE_IMAGE)
    End If
End Sub