Hallo,
diese Code soll nach und vor einem Ruhezustand eine Meldung
in einer Textbox ausgeben.
Leider gibt er nur eine Nachrich nach dem Ruhezustand aus,
aber nicht vor dem Ruhezustand.
Kann mir da mal einer unter die Arme greifen?
Gruss
diese Code soll nach und vor einem Ruhezustand eine Meldung
in einer Textbox ausgeben.
Leider gibt er nur eine Nachrich nach dem Ruhezustand aus,
aber nicht vor dem Ruhezustand.
Kann mir da mal einer unter die Arme greifen?
Gruss
VB.NET-Quellcode
- Imports Microsoft.Win32
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- AddHandler SystemEvents.PowerModeChanged, AddressOf SystemEvents_PowerModeChanged
- End Sub
- Private Sub SystemEvents_PowerModeChanged(ByVal sender As Object, ByVal e As PowerModeChangedEventArgs)
- If e.Mode = PowerModes.Resume Then
- TextBox1.Text = Format(Now, "hh:mm:ss") & " Komme aus dem Standby" & vbNewLine
- End If
- If e.Mode = PowerModes.Suspend Then
- TextBox1.Text = Format(Now, "hh:mm:ss") & " Gehe in den Standby" & vbNewLine
- End If
- End Sub
- End Class