ProgressBar Question

A

al jones

I have the following, extracted from my code (sorry, the files 'line' of
code wraps across the first five lines of the copy) and pbFiles is
(obviously?) the progressbar.

Dim foundFiles As
System.Collections.ObjectModel.ReadOnlyCollection(Of String) =
My.Computer.FileSystem.GetFiles(tbSource.Text, IIf(optSubdirectories,
FileIO.SearchOption.SearchAllSubDirectories,
FileIO.SearchOption.SearchTopLevelOnly))

pbFiles.Minimum = 1
pbFiles.Maximum = foundFiles.Count

For Each foundFile As String In foundFiles
If fpath <> System.IO.Path.GetDirectoryName(foundFile) Then
fpath = System.IO.Path.GetDirectoryName(foundFile)
tsStatus.Text = "Processing Folder: " & fpath
PrintLine(intFileNumber, "Processing Folder: " & fpath)
End If
<< code snipped >>
I += 1
If I Mod 20 = 0 Then Application.DoEvents()
pbFiles.PerformStep()
Next

I'm confused - the progressbar is 'finished' long before I'm done
processing in fact it's filled when I'm about 15% of the way done. It was
my impression that since I've given it the min and max - and then call
performstep as I process each file, *IT* should be able to caluclate how
far along the progressbar is ... what is it that I'm understanding
incorrectly??

Thanks //al
 
R

R. MacDonald

Hello, Al,

The default property of the Step property is 10. Try setting it to 1.

Cheers,
Randy
 
A

academic

I only used the progress bar once I believe rather then
pbFiles.PerformStep()
I used
pbFiles.Value=I
 
A

al jones

Thank you both, yes, the way I did it was to assigne the value as
pbFiles.value += 1
which works the way I expected - just didn't see it before, thanks //al
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top