BackgroundWorker ??

Question

Bonjour,
Voila je bug depuis quelque jours sur ce composants.
J'aimerai que mon code fonctionne en arrière plans comme l'indique sa description.
J'ai essaye de mettre mon code dans BackgroundWorker1_DoWork
et de le lancer dans mon form1 load avec BackgroundWorker1.RunWorkerAsync()

Mais voila il fait 

        If VERIF_VERSION < LastVer Then
            File.Delete(versionfile)
            Dim t1 As String = VERIF_VERSION + 1
            Dim sw As StreamWriter
            sw = New StreamWriter(versionfile)
            sw.WriteLine(t1)
            sw.Close()

Au lieu de faire tout mon codes,J'ai appris qu'il fallait mettre des deleguate 
mais je n'ai absolument rien compris

Voila mon code complet:

       
Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork

 Dim VERIF_VERSION As String = My.Computer.FileSystem.ReadAllText("version.txt")
        Dim versionfile As String = "version.txt"
        If My.Computer.FileSystem.FileExists(versionfile) Then
            My.Computer.FileSystem.DeleteFile(versionfile)
        End If
        My.Computer.Network.DownloadFile(Site2 & versionfile, versionfile)

        Dim LastVer As String = My.Computer.FileSystem.ReadAllText(versionfile)

        If VERIF_VERSION < LastVer Then
            TabControl1.SelectTab(1)
            File.Delete(versionfile)
            Dim t1 As String = VERIF_VERSION + 1
            Dim sw As StreamWriter
            sw = New StreamWriter(versionfile)
            sw.WriteLine(t1)
            sw.Close()
            My.Computer.Network.DownloadFile(Site2 & t1 & ".zip", t1 & ".zip")
            My.Computer.Network.DownloadFile("failed", "failed")
            decompression(Application.StartupPath, t1 & ".zip")
            System.Threading.Thread.Sleep(7000)
            My.Computer.FileSystem.DeleteFile(t1 & ".zip")
            Application.Restart()
        End If
End sub

Utilisateur anonyme · Answer

Bonjour,

Tu peux copier-coller l'exemple de ton aide  dans ton programme. Tu changes deux ou trois choses mineures et tu es en voiture.

NHenry · Answer

Bonjour, 

Hormis peut être pour le 
Application.Restart()
Je ne vois pas pourquoi tu as besoin des délégués, tu peux détailler ton problème ?

v----Signature--------v----------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

BackgroundWorker ??

2 réponses

Votre réponse

Discussions similaires