Spanish Cómo esperar a que una pagina de B4XPages finalice? [Solucionado]

[carlos7000]

Hola a todos

Deseo hacer algo así:

Private Sub ButtonQrOrigen_Click
    B4XPages.ShowPage("Qr Code Reader")
    Dim Resultado As String = QRC_Reader.Resultado
    Log($"Resultado ${Resultado}"$)
End Sub

Como uds ya saben, el código anterior se ejecuta sin esperar a que finalice la pagina "Qr Code Reader".

Sé que podría emplear Wait, pero no sé como emplearlo en este caso.

Si alguien me puede ayudar, por favor.

 

[carlos7000]

He intentado con el siguiente código, pero no funciona

Private Sub ButtonQrOrigen_Click
    B4XPages.ShowPage("Qr Code Reader")
    Wait For B4xPage_Disappear
        
    Dim Resultado As String = QRC_Reader.Resultado
    Log($"Resultado ${Resultado}"$)
End Sub

 

[angel_]

Prueba algo así:

Private Sub Button1_Click
    Dim rs As ResumableSub = GetQRC_Reader
    
    Wait For (rs) Complete (Result As String)
    Dim Resultado As String = Result
End Sub

Private Sub GetQRC_Reader As ResumableSub
    Return QRC_Reader.Resultado
End Sub

[B4X] Resumable subs that return values (ResumableSub)

Remember that that a call to Sleep or Wait For in a resumable sub causes the code flow to return to the parent. Example: Sub Button1_Click Sum(1, 2) Log("after sum") End Sub Sub Sum(a As Int, b As Int) Sleep(100) 'this will cause the code flow to return to the parent Log(a + b) End Sub...

www.b4x.com

 

[carlos7000]

Prueba algo así:

Private Sub Button1_Click
    Dim rs As ResumableSub = GetQRC_Reader
  
    Wait For (rs) Complete (Result As String)
    Dim Resultado As String = Result
End Sub

Private Sub GetQRC_Reader As ResumableSub
    Return QRC_Reader.Resultado
End Sub

[B4X] Resumable subs that return values (ResumableSub)

Remember that that a call to Sleep or Wait For in a resumable sub causes the code flow to return to the parent. Example: Sub Button1_Click Sum(1, 2) Log("after sum") End Sub Sub Sum(a As Int, b As Int) Sleep(100) 'this will cause the code flow to return to the parent Log(a + b) End Sub...

www.b4x.com

Hola.

Lo intente de esta forma

No funcionó.


De esta forma:

Tampoco funcionó. Voy a intentar en el foro Ingles.

Muchas gracias

 

[angel_]

Hola.

Lo intente de esta forma

View attachment 145513
No funcionó.


De esta forma:

View attachment 145512

Tampoco funcionó. Voy a intentar en el foro Ingles.

Muchas gracias

En estos dos casos no estás declarando correctamente el tipo de salida que espera la función que debe ser ResumableSub

 

[carlos7000]

Hola.

Les comento que en el foro ingles he encontrado lo que estaba buscando.

Este es el link a la respuesta: https://www.b4x.com/android/forum/t...-page-to-disappear-solved.150008/#post-950779

 

[carlos7000]

En estos dos casos no estás declarando correctamente el tipo de salida que espera la función que debe ser ResumableSub

Hola Angel.

Supongo que algo hice mal, porque aun así, no me funcionó.

También probe un código que si logre hacer funcionar.

Muchísimas gracias por su ayuda.