Imports Microsoft.Win32 Public Class Form1 Dim psBattery As PowerStatus = SystemInformation.PowerStatus Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load verif() AddHandler SystemEvents.PowerModeChanged, AddressOf verif End Sub Sub verif() If psBattery.PowerLineStatus = PowerLineStatus.Online Then Label1.Text = ("Battery charge status: Charging") Console.Beep() Label1.Refresh() ElseIf psBattery.PowerLineStatus = PowerLineStatus.Offline Then Label1.Text = ("Battery charge status: Not charging") Console.Beep() Label1.Refresh() End If End Sub End Class
mais quand débranche le pc rien ne change dans le label1
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionJust run HookEventsAdd during load and the HookEventsRemove during closing.