Spanish [SOLUCIONADO] Impedir que se apague la pantalla

[Heppy]

Estoy atontao ultimamente.

Comp se impide apagar la pantalla, o en su casio cuando phoneevents detecta que se apaga, encenderla automaticamente.

Gracias

 

[JoanRPM]

Heppy.

En Sub Process_Globals poner:
Dim Awake As PhoneWakeState

Donde quieras del programa:
Awake.KeepAlive(True) 'la pantalla nunca se para
Awake.KeepAlive(False) 'la pantalla no se para, pero brilla menos
Awake.ReleaseKeepAlive 'deja que la pantalla se pueda parar

Saludos

 

[Heppy]

Gracias JoanRPM.

Ya te decía que estaba empanado. Estaba dandole vueltas al PhoneEvents.

 

[Juan F.]

Muchas Gracias