DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

progress bar problem in vb

•

Join Date: Oct 2005

Posts: 51

Reputation: jto is an unknown quantity at this point

Solved Threads: 0

jto

Offline

Junior Poster in Training

progress bar problem in vb

Jan 23rd, 2006

hi,
i am using a progress bar in a conversion program in conversion process progress bar is showing the progress of conversion , but i am using a timer increment for increase the progress bar , but when file is big due to timer is showing the process has been completed but actually file conversion is not completed .Is at any method is there which can calculate the first file size and according to this file size process gets incerement .

•

Join Date: Nov 2005

Posts: 134

Reputation: Yomet is an unknown quantity at this point

Solved Threads: 10

Yomet

Offline

Junior Poster

Re: progress bar problem in vb

Jan 25th, 2006

Hi jto,

If I understand correctly you are loading a file and want the progress bar to indicate how far you have actually come in the load process - correct?

If so you could use the FileLen(<path>) function to get the length of the file initially. You store this in the MaxValue of the progress bar and keep a 'counter' to track how much of the file you have read so far by adding the length of the data you just read to it every time you do an input. Something like this:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Dim BytesRead As Long
Dim InputLine As String
 
ProgressBar.MinValue = 0
ProgressBar.MaxValue = FileLen(<path>)
Open <path> For Input As #1
While Not EOF(1)
   LineInput #1, InputLine
   BytesRead = BytesRead + Len(InputLine)
   ProgressBar.Value = BytesRead
Wend
Close #1
Dim BytesRead As Long
Dim InputLine As String

ProgressBar.MinValue = 0
ProgressBar.MaxValue = FileLen(<path>)
Open <path> For Input As #1
While Not EOF(1)
   LineInput #1, InputLine
   BytesRead = BytesRead + Len(InputLine)
   ProgressBar.Value = BytesRead
Wend
Close #1