Erreur While, Do Loop, ... [VB.NET]

L’auteur de ce sujet a trouvé une solution à son problème.
Auteur du sujet

Bonjour, J’ai actuellement ce code:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Thread1 As New Thread(Sub() viewBattery())
        Thread1.IsBackground = True
        Thread1.Start()

    End Sub

    Sub viewBattery()
        Do
            If battery <> (SystemInformation.PowerStatus.BatteryLifePercent * 100) Then
                battery = (SystemInformation.PowerStatus.BatteryLifePercent * 100)
                Invoke(New MethodInvoker(Sub()
                                             Label1.Text = "Actuellement: " & battery & "%"
                                         End Sub))
            End If
        Loop
    End Sub

Qui me permet d’avoir le pourcentage de ma battery en temps réel. Donc jusque là tout fonctionne, mais lorsque je ferme le logiciel, sa m’affiche une erreur:

Image utilisateur
Image utilisateur

Alors comment faire ? Merci

Édité par artragis

+0 -0
Connectez-vous pour pouvoir poster un message.
Connexion

Pas encore membre ?

Créez un compte en une minute pour profiter pleinement de toutes les fonctionnalités de Zeste de Savoir. Ici, tout est gratuit et sans publicité.
Créer un compte