AddHandler Microsoft.Win32.SystemEvents.PowerModeChanged, AddressOf Standby
Private Sub Standby(ByVal sender As Object, ByVal e As Microsoft.Win32.PowerModeChangedEventArgs) If e.Mode = Microsoft.Win32.PowerModes.StatusChange Then 'ta gestion ici End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Standby(ByVal sender As Object, ByVal e As Microsoft.Win32.PowerModeChangedEventArgs) If e.Mode = Microsoft.Win32.PowerModes.Suspend Then 'utiliser .suspend pour connaitre le début de la mise en veille veilledebut = Now End If If e.Mode = Microsoft.Win32.PowerModes.Resume Then 'utiliser .resume pour connaitre la fin de la mise en veille veillefin = Now End If End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Debug.Print(String.Format("x={0} y={1}", Cursor.Position.X, Cursor.Position.Y)) End Sub