davidsuarez.es

A veces tenemos usuarios que tienen alguna aplicación abierta todo el día y por el motivo que sea queremos que pasado un tiempo de inactividad la aplicación se cierre sola.

Esto es muy simple pero muy efectivo.

Ponemos un control timer con un intervalo de 1 segundo y le ponemos el siguiente codigo:

Private Sub Timer_Timer()
Debug.Print DateDiff(“s”, movido, Time())
If DateDiff(“s”, movido, Time()) > 120 Then ‘esta puesto a 120 segundos
MsgBox “Se agotó el tiempo de dos minutos sin hacer nada, cerrando la aplicación.”
End
End If
End Sub

Luego en cada evento “_MouseMove” de todos los controles que tenemos en el formulario debemos poner:

    movido = Time() 

por ejemplo:

Private Sub DBGrid1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
movido = Time()
End Sub

y ya está. Así de simple.

Vota este artículo:
Posts anterior y posterior:


Posts Relacionados:

• No permitir que la aplicación se ejecute más de 1 vez (Visual Basic)
• canalvisualbasic
• Web de recursos de Visual basic.
• Enviar parámetros a una aplicación (Visual Basic)
• enviar email con visual basic