Apagar aplicacion

a ver si esto te sirve...

private blnCerrar as boolean

[...]

private sub Evento_Timer()
if Time=HoraCerrar then
blnCerrar=True
Unload Me
endif
En Sub

[...]

Private sub Query_Unload(cancel,etc...)
if not blnCerrar then
if PreguntaDeseaCerrar=vbNo
Cancel=true
endif
endif
End Sub

"Luis Fernadez" escribió en el mensaje
news:0ab801c355bb$6eb8b570$

Buenos dias.
Como puedo apagar una aplicacion cuando sea una hora
determinada.
En el timer tengo hecha la comprobacion de la hora, pero
luego como puedo apagarla? Si llamo al evento
Query_Unload, este realiza una pregunta. como puedo
decirle por defecto que si?
Si me la salto, la aplicacion no cierra bien.
Un saludo y muchas gracias.

Hola Luis.

Revisa la ayuda del evento QueryUnload y veras que el parámetro Cancel puede
tener valores distintos segun el método como se esta cerrando la aplicación
uno de esos valores es Cancel=vbAppWindows=2 que corresponde a cuando
Windows esta cerrando la sesion, eso significa qu si compruebas que es un
cierre de windows, pues no necesitas preguntar si desea salr o no.

Por otra parte, pudieras tambien hacer que cuando el timer se dispare
cambies una variable o un propiedad global que le indique al evento
queryunload que es tiempo de apagarse.

Espero me entiendas.

Saludos.


'//RadioMan
Asdrubal Velasquez
RadioMan(ARROBA)cantv.net
Puerto Ordaz - Venezuela