Hallo,
ich setze schon längere Zeit zur vollsten Zufriedenheit diesen Code ein, um ein versehentliches Beenden meiner App zu verhindern:
Jetzt erhalte ich beim Compilieren diese Fehlermeldung:
ich setze schon längere Zeit zur vollsten Zufriedenheit diesen Code ein, um ein versehentliches Beenden meiner App zu verhindern:
B4X:
Sub Activity_KeyPress (KeyCode As Int) As Boolean
Select KeyCode
Case KeyCodes.KEYCODE_BACK
If ListFile="" Then
Msgbox2Async("Möchten Sie die App beenden?", "App beenden", "Ja", "", "Nein", Null,False)
Wait For Msgbox_Result (Result As Int)
If Result = DialogResponse.NEGATIVE Then
CallSubDelayed(Me, "codewahl")
End If
Else
Msgbox2Async("Möchten Sie die App beenden?", "App beenden", "Ja", "neue Liste", "Nein", Null,False)
Wait For Msgbox_Result (Result As Int)
If Result = DialogResponse.NEGATIVE Then
CallSubDelayed(Me, "codewahl")
else If Result = DialogResponse.CANCEL Then
ListFile=""
CallSubDelayed(Me, "turnierwahl")
End If
End If
End Select
End Sub
Die Sub wird als "resumable sub" gekennzeichnet, (wie) kann ich meine Sub weiternutzen?Fehler beim Parsen des Programms:
Fehlerbeschreibung: Der Rückgabewert von Resumable Subs muß entweder ResumableSub oder keiner sein.