Idle control (check if your app is idle)

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Intermediate

Author:

Anonymous

Version Compatibility: Visual Basic 6

More information:

This control will raise an event (Is_Idle) when your application is idle after n Seconds (default is 300). It can be useful for applications which have a login. After n seconds, the user can be prompted to login again.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Option Explicit Private Type PLASTINPUTINFO cbSize As Long dwTime As Long End Type Private Declare Function GetLastInputInfo Lib "user32.dll" (ByRef plii As PLASTINPUTINFO) As Long Private Declare Function GetTickCount Lib "kernel32" () As Long Private mnIdleSeconds As Long Public Event IsIdle() Dim WithEvents myTmr As Timer

Code:

Private Sub UserControl_Initialize()
   Set myTmr = Controls.Add("VB.Timer", "Timer1")
   myTmr.Enabled = True
   myTmr.Interval = 30000
End Sub
Private Sub mytmr_Timer()
    Dim plii As PLASTINPUTINFO
    
    plii.cbSize = Len(plii)
    
    GetLastInputInfo plii
    
    If GetTickCount - plii.dwTime > mnIdleSeconds Then
        myTmr.Enabled = False
        RaiseEvent IsIdle
        myTmr.Enabled = True
    End If
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    mnIdleSeconds = PropBag.ReadProperty("IdleSeconds", 300)
End Sub
Private Sub UserControl_Resize()
    UserControl.Height = 750
    UserControl.Width = 750
End Sub
Private Sub UserControl_Terminate()
    myTmr.Enabled = False
    Set myTmr = Nothing
End Sub
Public Property Get IdleSeconds() As Long
    IdleSeconds = mnIdleSeconds / 1000
End Property
Public Property Let IdleSeconds(ByVal vNewValue As Long)
    mnIdleSeconds = vNewValue * 1000
    PropertyChanged "IdleSeconds"
End Property
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("IdleSeconds", mnIdleSeconds, 300)
End Sub