Faire progresser une barre de chargement [Résolu]

Signaler
-
 PTuner -
Bonjour
J'aimerai que dans le sub changement (), les instructions fassent progresser une barre de chargement que j'ai ajouté précédemment dans le form voici le code:
 Sub changement()
        If Not System.IO.File.Exists("c:\users\pierre\desktop\123.txt") Then Call arret()
        InitializeComponent()
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 4
ProgressBar1.Value=ProgressBar1.minimum
        Kill("c:\users\Pierre\desktop\123.txt")
        ProgressBar1.Value = 1
        RmDir("c:\users\pierre\desktop\test")
        ProgressBar1.Value = 2
        System.IO.Directory.CreateDirectory("c:\users\Pierre\desktop\test")
        ProgressBar1.Value = 3
        Dim file As System.IO.FileStream
        file = System.IO.File.Create("c:\users\pierre\desktop\123.txt")
        file.Close()
        SetAttr("c:\users\Pierre\desktop\123.txt", vbNormal)
        Process.Start("calc.exe")
        Dim fichier = My.Computer.FileSystem.OpenTextFileWriter("c:\users\Pierre\desktop\123.txt", True)
        fichier.WriteLine("Ceci est un test" & vbCrLf & "Ceci est la seconde ligne")
        fichier.Close()
        ProgressBar1.Value = ProgressBar1.Maximum
        If System.IO.File.Exists("c:\users\pierre\desktop\123.txt") Then MsgBox("Le fichier 123.txt existe")
    End Sub

j'ai essayé un petit truc mais ça n'a pas l'air de marcher.

23 réponses


Ahh...
tu as quel version de visual studio et de windows?



Cordialement


CF2i - Guadeloupe
Ingénierie Informatique
En fait c'est bon c'était dû à une erreur dans la form, le problème est réglé.J'utilise Windows 7 64bit avec le visual studio 2010.
Je vous remercie pour vos réponses :)