O meglio, non c'è la possibilità di intercettare altri tasti. Se crei la routine-evento B4XPage_ CloseRequest, dall'interno di questa puoi richiamare/mostrare la pagina che vuoi.
O meglio, non c'è la possibilità di intercettare altri tasti. Se crei la routine-evento B4XPage_ CloseRequest, dall'interno di questa puoi richiamare/mostrare la pagina che vuoi.
Perché mi era scappata una "s" di troppo.
B4XPage_CloseRequest.
Comunque mi pare di averti detto come creare gli eventi, senza doverli digitare (se non lo ricordi, fammelo sapere )
Si si, con tab dopo lo spazio, solo che il nome dell'evento dovevo scriverlo io e sono riuscito a sbagliare l'unica cosa che dovevo fare manualmente! ?
Non so che c'entra, sinceramente non so neppure a cosa serve... ?
All'inizio lo avevo messo senza ma mi dava un Warning "B4XDatabasePage - 391: Non tutti i punti chiave del codice restituiscono un valore. (warning #2)" ho visto che c'era nel thared che mi avevi linkato e che mettendolo andava via il Warning così ho pensato che ci andasse... ?
Allora per quello Warning che devo fare?
non è che quindi mi chiude anche la mainpage e quindi non può accederci? B4XPage è un nome comune anche alle altre pagine...forse devo cambiare il nome evento?
Credo ci sia un po' di confusione.
CloseRequest si aspetta di poter dire se si può o meno chiudere la pagina (dopo aver utilizzato BackKey o la chiusura form in B4j)
B4X:
'Return True to close, False to cancel
Private Sub B4XPage_CloseRequest As ResumableSub
Dim sf As Object = xui.Msgbox2Async("Close?", "Title", "Yes", "Cancel", "No", Null)
Wait For (sf) Msgbox_Result (Result As Int)
If Result = xui.DialogResponse_Positive Then
Return True
End If
Return False
End Sub
Quindi nel caso si desideri andare sempre in PaginaX (anche Mainpage) alla pressione di BackKey, bisognerà settare un return false e lo show della pagina desiderata.
ps: ovviamemte, a differenza dell'esempio qui sopra, non si chiederà all'utente cosa desideri fare
Private Sub B4XPage_CloseRequest As ResumableSub
Return False
B4XPages.ShowPageAndRemovePreviousPages("MainPage")
End Sub
ma c'è uno Warning che mi di dice "B4XDatabasePage - 393: Rilevata una parte di codice non raggiungibile. (warning #1)" sottoliveando "B4XPages.ShowPage("MainPage")"
Private Sub B4XPage_CloseRequest As ResumableSub
Return False
B4XPages.ShowPageAndRemovePreviousPages("MainPage")
End Sub
ma c'è uno Warning che mi di dice "B4XDatabasePage - 393: Rilevata una parte di codice non raggiungibile. (warning #1)" sottoliveando "B4XPages.ShowPage("MainPage")"
Dopo il return non va scritto nulla ovviamente perché da quel punto in poi torna al chiamante e non verrà eseguito. L'ambiente ti avvisa che quella parte di codice non sarà mai eseguita/raggiunta.
Avviso numero 1.... proprio alle basi....magari fosse avviso numero 100.... siamo all'ABC dello sviluppo