ProgressBar assist needed
From: Steve (admlcl_at_yahoo.com)
Date: 05/07/04
- Next message: Bob O`Bob: "Re: TextWidth bug on really long strings"
- Previous message: Rick Rothstein: "Re: TextWidth bug on really long strings"
- Next in thread: MikeD: "Re: ProgressBar assist needed"
- Reply: MikeD: "Re: ProgressBar assist needed"
- Reply: Jim Carlock: "Re: ProgressBar assist needed"
- Reply: Larry Serflaten: "Re: ProgressBar assist needed"
- Reply: J French: "Re: ProgressBar assist needed"
- Messages sorted by: [ date ] [ thread ]
Date: 6 May 2004 18:14:59 -0700
Having looked in the archives I have found nothing to help me with this.
I am reading text file of unknown number of records into a UDT array,
I am current using a counter in the loop to display the record count on
a label as the loading progresses,I would instead like to use a progressbar
to display the progress.I know how to get the File size using LOF(1) but have
found nothing showing how to measure the size of each loop and use it in the
progress bar. Code I'm using to read the file
Open App.Path & FileName for Input as #1
Countr = 0
Do While Not EOF(1)
ReDim Preserve Stuff(Countr) As Bob
Input #1 Stuff(Countr).one,Stuff(Countr).two,_
Stuff(Countr).three,Stuff(Countr).four
Countr=Countr + 1
Label1.Caption = "Loading Records: " & Countr
Label1.Refresh
Loop
Close #1
any pointers greatly appreciated
SteveC
PS everything is appropriately Dim'd
- Next message: Bob O`Bob: "Re: TextWidth bug on really long strings"
- Previous message: Rick Rothstein: "Re: TextWidth bug on really long strings"
- Next in thread: MikeD: "Re: ProgressBar assist needed"
- Reply: MikeD: "Re: ProgressBar assist needed"
- Reply: Jim Carlock: "Re: ProgressBar assist needed"
- Reply: Larry Serflaten: "Re: ProgressBar assist needed"
- Reply: J French: "Re: ProgressBar assist needed"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|