Hi Comm,
ich programmiere gerade einen Multidownloader, wie man anhand meiner Signatur ja feststellen kann^^ und möchte die downloads in einer Listview anzeigen. Das Problem ist nur: ich weiß nicht, wie ich DownloadProgressChanged hier hinenbringe:
Hoffe auf Hilfe
ich programmiere gerade einen Multidownloader, wie man anhand meiner Signatur ja feststellen kann^^ und möchte die downloads in einer Listview anzeigen. Das Problem ist nur: ich weiß nicht, wie ich DownloadProgressChanged hier hinenbringe:
VB.NET-Quellcode
- Sub DownloadStarten()
- Dim Progrbar(13) As ProgressBar
- If zahler <= UBound(Progrbar) Then
- Progrbar(zahler) = New ProgressBar
- Progrbar(zahler).Name = "Progrbar" & zahler.ToString
- Progrbar(zahler).Maximum = 100
- Progrbar(zahler).Minimum = 0
- Progrbar(zahler).Size = New Size(148, 15)
- If zahler = 0 Then
- Progrbar(zahler).Location = New Point(740, 25)
- ElseIf zahler > 0 Then
- Progrbar(zahler).Location = New Point(740, ListView2.Controls(zahler - 1).Location.Y + 2 + 15)
- End If
- ListView2.Controls.Add(Progrbar(zahler))
- zahler += 1
- Else
- MsgBox("Maximale Downloadzahl erreicht!", MsgBoxStyle.Exclamation, "Downloadlimit")
- End If
- Dim downloader(14) As Net.WebClient
- Dim savefiledialog1 As New SaveFileDialog
- If savefiledialog1.ShowDialog() = Windows.Forms.DialogResult.OK And savefiledialog1.FileName <> "" Then
- Dim savepath As String = savefiledialog1.FileName
- Dim downurl As String = InputBox("Geben sie bitte den Link ein:", "Link", "http://...")
- If downurl <> "" Then
- Try
- downloader(zahler) = New Net.WebClient
- downloader(zahler).DownloadFileAsync(New Uri(downurl), savepath)
- Catch
- MsgBox("Download fehlgeschlagen!", MsgBoxStyle.Exclamation, "Error")
- End Try
- End If
- End If
- End Sub
Hoffe auf Hilfe
LG
Merio
Merio