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

[Nachtfalke75]

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

 

[Deleted member 103]

Mach diese änderung:

von:

Sub Activity_Pause (UserClosed As Boolean)
pws.KeepAlive(False)
End Sub

nach:

Sub Activity_Resume
   pws.KeepAlive(True)
End Sub

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