German Bildschirm geht nicht mehr aus, obwohl die App beendet wurde

Nachtfalke75

Member
Licensed User
Hallo,

ich wollte verhindern, dass der Bildschirm ausgeht (während die app läuft):
Dim pws As PhoneWakeState
Sub Activity_Create(FirstTime As Boolean)
pws.KeepAlive(True)
End Sub
Sub Activity_Pause (UserClosed As Boolean)
pws.KeepAlive(False)
End Sub
Sub Button_Exit_Click
pws.KeepAlive(False)
Activity.Finish
End Sub
Jetzt habe ich allerdings das Problem, dass selbst wenn ich die app verlassen habe, der Bildschirmschoner nicht mehr angeht :(
Kann mir jemand helfen?
Thx im vorraus :)
 

Filippo

Expert
Licensed User
Mach diese änderung:

von:
Sub Activity_Pause (UserClosed As Boolean)
pws.KeepAlive(False)
End Sub
nach:
B4X:
Sub Activity_Resume
   pws.KeepAlive(True)
End Sub

Sub Activity_Pause (UserClosed As Boolean)
   pws.ReleaseKeepAlive
End Sub
 
Top