Salut
Voilà, j'ai fait un programme qui télécharger des fichier en série.
Mon problème est que pendant l’exécution de la boucle, ma form devient blanche et se fige.
C'est d'autant plus ennuyeux que j’avais mis une "ProgressBar"
voila mon code :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Url As String
Dim Cpt As Integer
Dim Avancement As Integer
Dim repertoire As String
Dim TableauA(2) As String
Dim TableauB(2) As String
For Cpt = TextBox2.Text To TextBox3.Text Step 1
TableauA(0) = TextBox1.Text
TableauA(1) = Cpt
TableauA(2) = TextBox4.Text
TableauB(0) = TextBox5.Text
TableauB(1) = Cpt
TableauB(2) = TextBox4.Text
Url = Strings.Join(TableauA, Delimiter:="")
repertoire = Strings.Join(TableauB, Delimiter:="")
Try
My.Computer.Network.DownloadFile(Url, repertoire)
Catch
Cpt = Cpt + 1
End Try
Avancement = Cpt * 100 / TextBox3.Text
ToolStripProgressBar1.Value = Avancement
ToolStripStatusLabel1.Text = "téléchargement ..."
Next
ToolStripProgressBar1.Value = 0
ToolStripStatusLabel1.Text = "En attente ..."
End Sub
Ce serais bien s'il est possible de placer l'instruction à la fin de la boucle.
Merci !
en fait il fallait ajouter Me.refresh !
[VB] Comment rafraîchir une form ?
× Après avoir cliqué sur "Répondre" vous serez invité à vous connecter pour que votre message soit publié.
× Attention, ce sujet est très ancien. Le déterrer n'est pas forcément approprié. Nous te conseillons de créer un nouveau sujet pour poser ta question.