VB 2010 Download Speicherort Wechseln?

... komplette Frage anzeigen

1 Antwort

Schau dir das Beispiel an, du brauchst nur noch ein Label und eine Progressbar die du dem Code entsprechend benennst:

Imports System.Net

Public Class Form1

Private Sub btn_start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_start.Click
Dim wc As New WebClient
AddHandler wc.DownloadProgressChanged, AddressOf DownloadProgressChanged
AddHandler wc.DownloadFileCompleted, AddressOf DownloadFileCompleted
wc.DownloadFileAsync(New System.Uri("Hier_die _URL_zum_download"), My.Application.Info.DirectoryPath & "/Dateiname.txt")

End Sub

Public Sub DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
progress_download.Value = e.ProgressPercentage
lbl_Info.Text = e.BytesReceived & "/" & e.TotalBytesToReceive

End Sub

Public Sub DownloadFileCompleted(ByVal sender As Object, ByVal e As EventArgs)
progress_download.Value = 0
lbl_Info.Text = "Download fertig"
MessageBox.Show("Download fertig!", "Downloader", MessageBoxButtons.OK)

End Sub

End Class

Der Vorteil dieser Methode ist, das Programm friert während des downloads nicht ein.

Antwort bewerten Vielen Dank für Deine Bewertung

Was möchtest Du wissen?