ActiveX Control

[Guest_imported]

How I can initialize Progress Bar at run time. First time it initialize with form form and if I run 2nd time it does not work and if I close and reopen form then again it works well.
Regds:
Ahsan Rana

 

[DannC]

Create a custom method (ex. Initialise) and ajust your progressBar from there.

 

[Guest_imported]

Sorry! Can't Understand. Please re-explain.

Best Regds:
Ahsan Rana

 

[rgbean]

If it's the standard MS Progress bar, then in whatever method you start your process, try adding something like:
Thisform.olecontrol1.control.Init()

Rick

 

[Guest_imported]

Sorry! does not work well. It gives a message " member CONTROL does not evaluate to an object"

 

[rgbean]

OK, then try Thisform.olecontrol1.Init() [without .control], sometimes you'll need this qualification for OLE controls, and sometimes you don't. It's usually only necessary when the control and VFP have the same named PEM.

Rick

 

[chpicker]

I believe the actual line Rick was thinking of is:

Thisform.olecontrol1.OBJECT.Init()

Use OBJECT, not CONTROL. )

Ian

 

[rgbean]

Ian,
You are correct! It's amazing how something so wrong, looked so right when I typed it. I hope Ahsan will forgive my "senior" moment.

Rick

 

[chpicker]

Don't feel bad, Rick. I seem to remember you correcting one of MINE just last week...

Ian

 

[Guest_imported]

I write the following line of code by it gives message
"UN-KNOWN NAME"

Thisform.ProgBar.Object.Init()

Ahsan Rana

 

[ajoyk]

Hi,

Are you not using the _therm.vcx from VFP.
In that case you can hide it at start. When you want it to work make it visible.

pbar1 is a object on the form from _therm.vcx(progress bar.)

select mytable
lnreccount = RECCOUNT()
lnpbarcount = 1
thisform.pbar1.visible = .T.
do while !eof()
****
your calculation go here
****

skip
THISFORM.pbar.UPDATE((lnpbarcount/lnreccount)*100)
lnpbarcount = lnpbarcount + 1
enddo
thisform.pbar1.visible = .F.

This works fine with me.

Hope this was what you were looking for.

AjoyK

 

[ajoyk]

Hi,

Are you not using the _therm.vcx from VFP.
In that case you can hide it at start. When you want it to work make it visible.

pbar1 is a object on the form from _therm.vcx(progress bar.)

select mytable
lnreccount = RECCOUNT()
lnpbarcount = 1
thisform.pbar1.visible = .T.
do while !eof()
****
your calculation go here
****

skip
THISFORM.pbar1.UPDATE((lnpbarcount/lnreccount)*100)
lnpbarcount = lnpbarcount + 1
enddo
thisform.pbar1.visible = .F.

This works fine with me.

Hope this was what you were looking for.

AjoyK