[PYTANIE] Pobieranie-Progress Bar

[Seba65439]

Witam dopiero zaczynam pisanie w VB i mam taki problem że nie wiem jak dodać Progress Bar do tego downloadera proszę o waszą pomoc i z góry dzięki:

 

 

Button2.Enabled = FalseDim net As New System.Net.WebClient
net.DownloadFile("ścieżka do pliku", "ścieżka zapisu pliku ")
Dim p As New Process

MsgBox("Aktualizacja została zakończona")
Button2.Enabled = True

 

 

[Symeg]

Użyj asynchronicznego pobierania. Metoda DownloadFileAsync oraz podczep sobie eventy DownloadFileCompleted oraz DownloadProgressChanged.

http://msdn.microsoft.com/pl-pl/library/tt0f69eh.aspx

[Seba65439]

mam taki kod ale pobiera tylko pierwszy plik

 

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Button2.Enabled = False
        ProgressBar1.Visible = True
        My.Computer.FileSystem.CreateDirectory("" & ComboBox3.Text & "/.minecraft/bin/")
        Dim net As New System.Net.WebClient
        WC.DownloadFileAsync(New Uri("http://s3.amazonaws.com/MinecraftDownload/minecraft.jar"), "" & ComboBox3.Text & "/.minecraft/bin/minecraft.jar")
        WC.DownloadFileAsync(New Uri("http://s3.amazonaws.com/MinecraftDownload/lwjgl.jar"), "" & ComboBox3.Text & "/.minecraft/bin/lwjgl.jar")
        WC.DownloadFileAsync(New Uri("http://s3.amazonaws.com/MinecraftDownload/jinput.jar"), "" & ComboBox3.Text & "/.minecraft/bin/jinput.jar")
        WC.DownloadFileAsync(New Uri("http://s3.amazonaws.com/MinecraftDownload/lwjgl_util.jar"), "" & ComboBox3.Text & "/.minecraft/bin/lwjgl_util.jar")
        Dim p As New Process
        MsgBox("Aktualizacja została zakończona")
        Button2.Enabled = True
    End Sub

    Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
    End Sub

[Symeg]

Możliwe jest tylko 1 pobieranie na raz. Jak zakończy pobierać 1 plik to rozpoczynasz 2 itd.

[Seba65439]

A jak to zrobić bo dopiero zaczynam więc jeszcze się gubie

[Symeg]

Podczep event DownloadFileCompleted i pobieraj następny plik lol.

[Seba65439]

Nie ogarniam tego ale to pewnie dlatego że dopiero dwa tygodnie temu zacząłem mam cały kod ale nie wiem jak to zrobić:

Imports System.Net
Imports System.ComponentModel

Public Class Form1

    Public WithEvents download As New WebClient
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        

        If My.Computer.Network.IsAvailable Then
            Button1.Enabled = False
            My.Computer.FileSystem.CreateDirectory("/.minecraft/bin/")
            ProgressBar1.Visible = True


            download.DownloadFileAsync(New Uri("http://s3.amazonaws.com/MinecraftDownload/minecraft.jar"), "/.minecraft/bin/minecraft.jar")
            download.DownloadFileAsync(New Uri("http://s3.amazonaws.com/MinecraftDownload/lwjgl.jar"), "/.minecraft/bin/lwjgl.jar")
            download.DownloadFileAsync(New Uri("http://s3.amazonaws.com/MinecraftDownload/jinput.jar"), "/.minecraft/bin/jinput.jar")
            download.DownloadFileAsync(New Uri("http://s3.amazonaws.com/MinecraftDownload/lwjgl_util.jar"), "/.minecraft/bin/lwjgl_util.jar")
        Else
            MsgBox("Brak dostępu do Internetu")
        End If

    End Sub

    Private Sub download_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
        Dim totalbytes As Long = e.TotalBytesToReceive / 1024
        Dim mtotalbytes As Long = totalbytes / 1024
        Dim bytes As Long = e.BytesReceived / 1024
        Dim mbytes As Long = bytes / 1024
        If totalbytes < 1 Then totalbytes = 1
        If bytes < 1 Then bytes = 1
        If totalbytes > 1024 Then
            Label1.Text = mbytes.ToString & " MB z " & mtotalbytes.ToString & " MB"
        Else
            Label1.Text = bytes.ToString & " KB z " & totalbytes.ToString & " KB"
        End If
    End Sub

    Private Sub download_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles download.DownloadFileCompleted
        Label1.Visible = False
        ProgressBar1.Visible = False
        Button1.Enabled = True
        MsgBox("Pobieranie plików przebiegło pomyślnie")
    End Sub

End Class

[Gates1]

http://msdn.microsoft.com/pl-pl/library/system.net.webclient.downloadfilecompleted.aspx?cs-save-lang=1&cs-lang=vb#code-snippet-2

 

Przeczytaj ze zrozumieniem.

[WellyPL]

Jak na mój rozum, to podam Ci gotowy kod...

Imports System.Net

Imports System.ComponentModel

 

Public Class Form1

 

Public WithEvents download As New WebClient

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

 

 

If My.Computer.Network.IsAvailable Then

Button1.Enabled = False

My.Computer.FileSystem.CreateDirectory("/.minecraft/bin/")

ProgressBar1.Visible = True

 

 

download.DownloadFileAsync(New Uri("http://s3.amazonaws.com/MinecraftDownload/minecraft.jar"), "/.minecraft/bin/minecraft.jar")

DownloadFileCompleted()

download.DownloadFileAsync(New Uri("http://s3.amazonaws.com/MinecraftDownload/lwjgl.jar"), "/.minecraft/bin/lwjgl.jar")

DownloadFileCompleted()

download.DownloadFileAsync(New Uri("http://s3.amazonaws.com/MinecraftDownload/jinput.jar"), "/.minecraft/bin/jinput.jar")

DownloadFileCompleted()

download.DownloadFileAsync(New Uri("http://s3.amazonaws.com/MinecraftDownload/lwjgl_util.jar"), "/.minecraft/bin/lwjgl_util.jar")

Else

MsgBox("Brak dostępu do Internetu")

End If

 

End Sub

 

Private Sub download_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged

ProgressBar1.Value = e.ProgressPercentage

Dim totalbytes As Long = e.TotalBytesToReceive / 1024

Dim mtotalbytes As Long = totalbytes / 1024

Dim bytes As Long = e.BytesReceived / 1024

Dim mbytes As Long = bytes / 1024

If totalbytes < 1 Then totalbytes = 1

If bytes < 1 Then bytes = 1

If totalbytes > 1024 Then

Label1.Text = mbytes.ToString & " MB z " & mtotalbytes.ToString & " MB"

Else

Label1.Text = bytes.ToString & " KB z " & totalbytes.ToString & " KB"

End If

End Sub

 

Private Sub download_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles download.DownloadFileCompleted

Label1.Visible = False

ProgressBar1.Visible = False

Button1.Enabled = True

MsgBox("Pobieranie plików przebiegło pomyślnie")

End Sub

 

End Class

[Seba65439]

Niestety nie działa pojawia się komunikat że nie zadeklarowano elementu DownloadFileCompleted

[WellyPL]

no to nie wiemy D: odsyłam Cię do wujaaa :P

[Seba65439]

No to jak pomoże ktoś ?

[MalakPl]

ref

[Seba65439]

@ref, pomocy

[Seba65439]

@ref