Crea un nuovo progetto
Sul Form1 mettici una Label e un Timer
Copia-incolla il codice qui sotto
Mandalo in funzione. Se muovi il mouse non accade nulla, se il mouse rimane fermo per 5 secondi ti avvisa scrivendo "Timeout" sulla Label.
Spero che il codice si capisca, sennò chiedi pure
Sergio
codice:Private Sub Form1_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown Label1.Text = "" Timer1.Interval = 5000 ' 5 secondi Timer1.Start() End Sub Private Sub Form1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove ' ogni volta che si intercetta un movimento del mouse, faccio ripartire il timer Timer1.Stop() Timer1.Start() End Sub Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick Timer1.Stop() Label1.Text = "Timeout !" End Sub

Rispondi quotando
