Re: visual basic 6 progress bar?

Michael Larocca wrote:
I used the code from the resource center and I got the progress bar to work on its own as a first step. What I'm trying to do is display a progress bar for 1 Do Until loop within my program.

When I put the progress bar code on the out side of the loop, it ran the whole Do Until loop first and then displayed the progress bar filling up afterward:

(progress bar code)
Do until R = 51
(Do until code)
R = R + 1
Loop
(progress bar code)

This did not work.

<snip>

In another part of this thread, I tossed in a query about using 'doevents'

change your code as follows and report back what happens

(progress bar code)
Do until R = 51
(Do until code)
R = R + 1
doevents
Loop

Graham
.

Relevant Pages

  • ProgressBar assist needed
    ... 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 ... progress bar. ...
    (microsoft.public.vb.general.discussion)
  • Re: (C) Simulated progress bar
    ... > I'm thinking the progress bar would be fairly straight-forward... ... > Just a for loop, set up to display a bunch of hashmarks or ASCII block ... a.c.l.l.c-c++ FAQ: http://www.comeaucomputing.com/learn/faq ...
    (alt.comp.lang.learn.c-cpp)
  • strange error I cant figure out...
    ... The program is a progress bar code I got at the Python Cookbook: ... If you uncomment the one print statement I added in the progressBar class, ... if newAmount < self.min: newAmount = self.min ...
    (comp.lang.python)
  • Re: Possible to time out a popup?
    ... The progress bar is nice, ... >| I am trying to display a popup box that times out. ... >| loop it so it doesn't allow user interaction until the ... > showBar oIe ...
    (microsoft.public.scripting.vbscript)
  • Re: Is there a way to terminate a Tcl procedure within the application/event loop?
    ... I found some code snippets at the wiki site ... |> progress bar just loops over and over again. ... |> though, because once it starts, I can't terminate the loop. ... |> "ShowProgress" puts these into a top-level window. ...
    (comp.lang.tcl)