Progress Bar

[CoachBarker]

I am trying to use the example provided by jmcilhinney using the BGW and Progress bar, but haven't gotten anywhere. I want the progress bar to actually show the progress of a file loading into an application. I can get the size of the file by using this;

Dim fileSize As Long
fileSize = FileLen(selectedDatabase)
MessageBox.Show(CStr(fileSize))

but then have no idea what to do with it.

[Deepak Sakpal]

Set the 'Maximum' property of the progress bar to the filesize and keep on changing the 'Value' property while loading the file.

[sparrow1]

Hi,

Here's a link how to set a progressbar and the filesize:

http://msdn.microsoft.com/en-us/library/t9fzsyec.aspx

Wkr,

sparrow1

[jmcilhinney]

Just note that the Maximum property is type Integer while a file length is type Long. You can simply convert a Long to an Integer but you need to be sure that the value is not too large or it will fail. If there's a chance of that then you are probably better to just use 100 as the Maximum and calculate the progess as a percentage before setting the Value.

[CoachBarker]

Since the running of the rest of the application is dependent on the loading of the database, do I even need to run the progress bar in a BGW? I am running the progress bar like this:

Me.ProgressBar1.Minimum = 0
Me.ProgressBar1.Maximum = CInt(fileSize)
Me.ProgressBar1.Value = 0
While ProgressBar1.Value < fileSize
     Me.ProgressBar1.Value += 2
End While

Then displaying the label that states that the database is fully loaded.

EDIT
No I guess that won't work right, it takes longer for the database to load. I will try to get it to work in the BGW. And try to use the percentage as jmcilhinney suggetsed.

[CoachBarker]

Been working at this off and on all day. To get the percentage I need to use (amountLoaded/ totalSize* 100). I have not been able to figure out how to get the amountLoaded.

[Deepak Sakpal]

You can calculate 'amountLoaded' by getting filesize downloaded on hard disk.