progress bar help (newbie)

Hi I am trying to create a program that will download programs from my home server to a clients computer. So far I have it that depending what is checked It will download those programs/files but what I would like to put in is either a progress bar or something that will let me know when the file is downloaded. for instance my code is
If CheckedListBox1.SelectedItem = "darts calculator" Then
My.Computer.Network.DownloadFile _
(http://download.location.to.my.pc.dartscalculator.exe, _
" C:\Downloads\DC.exe")
But when it downloads I hav no way of knowing and some of the files I have to download are in the range of 100meg or less. Even if I get rid of the progress bar and just have it so that it said "downloading" while getting the file and "done" when the file is done downloading. Any Ideas how I would do this?

I added a two buttons: btnStart, btnCancel

I then added a progress bar: prgThread

This will get the progess bar to work. Try this code this should get you started.

Private WithEvents TestWorker As System.ComponentModel.BackgroundWorker

Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click

btnStart.Enabled = False

btnCancel.Enabled = True

lstValues.Items.Clear()

prgThread.Value = 0

TestWorker = New System.ComponentModel.BackgroundWorker

TestWorker.WorkerReportsProgress = True

TestWorker.WorkerSupportsCancellation = True

TestWorker.RunWorkerAsync()

End Sub

Private Sub TestWorker_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles TestWorker.DoWork

Dim ListText As String

For Value As Integer = 0 To 100

If TestWorker.CancellationPending Then

Exit For

End If

ListText = String.Concat("Item #", Value)

TestWorker.ReportProgress(Value, ListText)

Threading.Thread.Sleep(100)

End Sub

Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click

TestWorker.CancelAsync()

End Sub

Private Sub TestWorker_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles TestWorker.ProgressChanged

prgThread.Value = e.ProgressPercentage

lstValues.Items.Add(e.UserState)

End Sub

Private Sub TestWorker_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles TestWorker.RunWorkerCompleted

btnStart.Enabled = True

btnCancel.Enabled = False

End Sub

1 Reply

Know the answer? Post it — somebody with the same question will find it here.

Andy15y ago
I added a two buttons: btnStart, btnCancel
I then added a progress bar: prgThread

This will get the progess bar to work. Try this code this should get you started.

Private WithEvents TestWorker As System.ComponentModel.BackgroundWorker

   Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
   btnStart.Enabled = False
   btnCancel.Enabled = True
   lstValues.Items.Clear()
   prgThread.Value = 0
   TestWorker = New System.ComponentModel.BackgroundWorker
   TestWorker.WorkerReportsProgress = True
   TestWorker.WorkerSupportsCancellation = True
   TestWorker.RunWorkerAsync()

   End Sub

   Private Sub TestWorker_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles TestWorker.DoWork
   Dim ListText As String
   For Value As Integer = 0 To 100
   If TestWorker.CancellationPending Then
   Exit For
   End If
   ListText = String.Concat("Item #", Value)
   TestWorker.ReportProgress(Value, ListText)
   Threading.Thread.Sleep(100)
   Next
   End Sub

   Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click

   TestWorker.CancelAsync()
   End Sub

   Private Sub TestWorker_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles TestWorker.ProgressChanged
   prgThread.Value = e.ProgressPercentage
   lstValues.Items.Add(e.UserState)
   End Sub

   Private Sub TestWorker_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles TestWorker.RunWorkerCompleted
   btnStart.Enabled = True
   btnCancel.Enabled = False
   End Sub