Déclencher une action au bout d'un certain temps d'inactivité de la souris

Commenter

Contenu du snippet

Ce petit code permet de déclancher une action (style écran de veille, ou autre ...) au bout d'un certain temps d'inactivité de la souris sur la form

Source / Exemple : 


'Un timer1, enabled = True, interval = 1000.

    Dim sec As Byte

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        sec = 0 'Quand la souris bouge, on remet sec à 0
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        sec = sec + 1 'Toute les seconde,sec = sec + 1
        If sec = 30 Then 'Entrez le temps d'inactivité (en secondes), pour le déclenchemnt
            MsgBox("Cela fait 30 secondes que vous n'avez pas bougé la souris") 'Ce qui doit ce passer
        End If
    End Sub

'Code programmé avec vb.net, mais fonctionnant pour vb6

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_et1)