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

Nachtfalke75

Member
Licensed User
Longtime 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 :)
 
D

Deleted member 103

Guest
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