SoftwareZator
Hello tout le monde
je cherche à faire fonctionner une progress bar lor d'un téléchargement via FTP ou depuis le NET ...
J'ai testé avec processus d'arrière plant ect ect mais cela reste complexe.
J'ai trouvé un code sur le net :
Comment faire fonctionner ce code dans SZ 2012 ?
Merci
je cherche à faire fonctionner une progress bar lor d'un téléchargement via FTP ou depuis le NET ...
J'ai testé avec processus d'arrière plant ect ect mais cela reste complexe.
J'ai trouvé un code sur le net :
- Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim Client As WebClient = New WebClient
AddHandler Client.DownloadProgressChanged, AddressOf client_ProgressChanged
AddHandler Client.DownloadFileCompleted, AddressOf client_DownloadCompleted
Client.DownloadFileAsync(New Uri("Adresse de téléchargement de ton fichier"), ".\Chemin a partir du .exe \Fichier.extension")
start_dl.Text = "Téléchargement en cours..."
start_dl.Enabled = False
Timer1.Start()
start_dl.Visible = True
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Progressbar1.Visible = True
Button1.Enabled = False
Catch exception1 As Exception
MessageBox.Show("Téléchargement Echoué !")
start_dl.Text = "Téléchargement Terminé !"
start_dl.Enabled = False
End Try
End Sub
Private Sub client_ProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
Try
Dim bytesIn As Double = Double.Parse(e.BytesReceived.ToString())
Dim bytesIn3 As Double = bytesIn / 1024
Dim bytesIn2 As Integer = bytesIn3
Format(bytesIn2, "#0")
Dim totalBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString())
Dim totalBytes3 As Double = totalBytes / 1024
Dim totalBytes2 As Integer = totalBytes3
Format(totalBytes, "#0")
Dim percentage As Double = bytesIn / totalBytes * 100
Progressbar1.Value = Int32.Parse(Math.Truncate(percentage).ToString())
Label1.Text = bytesIn2
Label3.Text = totalBytes2
Catch exception1 As Exception
MessageBox.Show("Téléchargement Echoué !")
start_dl.Text = "Téléchargement Terminé !"
start_dl.Enabled = False
End Try
End Sub
Private Sub client_DownloadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
Try
Progressbar1.Value = Progressbar1.Minimum
Button1.Enabled = True
start_dl.Text = "Téléchargement Terminé !"
start_dl.Enabled = False
MessageBox.Show("Téléchargement Terminé !")
Timer1.Stop()
Catch exception1 As Exception
MessageBox.Show("Téléchargement Echoué !")
start_dl.Text = "Téléchargement Terminé !"
start_dl.Enabled = False
End Try
End Sub
Comment faire fonctionner ce code dans SZ 2012 ?
Merci
)
