Inactividad

Has esto:

Pone un componente Timer en tu formulario prncipal.
Enable = True
Interval = 1000 (un segundo)

Declara otra variable global intMinutos as Integer
y Otra dteLimite as Date

En el form load, asigna el numero de minutos de inactividad tolerada
ej intMinutos = 5 'Hasta cinco minutos de inactividad

En los eventos donde realizas tareas y en el KeyPress del formulario,
asigna a dteLimite el tiempo de ahora mas los minutos definidos en
intMinutos:

dteLimite = dateadd("n",intMinutos,Now)

Esto asigna un nuevo limite cada vez que haya alguna actividad dentro la
aplicacion. Si pones codigo dentro del keypress del formulario, debes
asignar True a la propiedad KeyPreview del mismo.

Ahora en el evento del Timer

if Now > dteLimite then
'El tiempo de inactividad ya expiro, sal de la aplicacion
(esto asume que este es el formulario principal)
unload me
end if

Debes defnir exactamente a que te refieres por "inactividad" para que pongas
la suma de los minutos a la hora actual para que esta linea de codigo se
ejecute
dentro toda posibilidad de actividad (o sea que si dentro de una actividad
legal
no se incrementa el tiempo limite, el programa terminara aunque si haya
actividad)

Espero sea de ayuda esto!
Suerte!
Saga


"CAFC" wrote in message
news:0e1801c35126$c8912b70$
Estimados:
Hay alguna forma de determinar en VB cuando una aplicación
esta inactiva por cierto tiempo?? algun evento?? alguna
forma de como hacer que si un programa no es utilizado
durante cierto tiempo éste se cierre ??.

Espero sus sugerencias y comentarios.
Saludos.
Cristian.