Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
I am in need of a ProgressBar bar control
Message
From
25/10/2006 14:59:28
Alexandre Palma
Harms Software, Inc.
Alverca, Portugal
 
 
To
25/10/2006 14:39:46
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP1
Network:
Windows 2000 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01164495
Message ID:
01164516
Views:
10
What control can't u see?
The progressbar control is an activex that comes with microsoft common controls, then you have 2 options drop that contol on a container my favorite one, create some initialization code for it and then create some methods to manage it, then drop that container in a form and show that form.
2nd just drop the control in the form adn show the form.
in my case I have it on a container and have the following code in the init of the container
LPARAMETERS tctext, tnitems, tnwidth

This.Visible = .t.

This.Width = tnwidth

This.Label1.Left = 12
This.Label1.Width = This.Width - (This.Label1.Left * 2)
This.Label1.Top = 9
This.Label1.Caption = tctext

This.oProgress.Min = 0
This.oProgress.Max = IIF(tnitems>0,tnitems,1)
This.oProgress.Value = 0

This.oProgress.Left = 12
This.oProgress.Width = This.Width - (This.oProgress.Left * 2)
This.oProgress.Top = 24
This.oProgress.Height = 17

DODEFAULT()

then the container has another method called scroolone with this code:

LPARAMETERS tncurrentitem

IF VARTYPE(tncurrentitem)$"NI"
This.ninc = tncurrentitem
ELSE
This.ninc = IIF(This.ninc >= This.oProgress.Max, This.oProgress.Max, This.ninc + 1)
ENDIF

This.oProgress.Value = This.ninc

it has a few more methods but this should give a startup.


>I am not able to see the control in my VFP session, can u give me steps and sample code if u have..
>
>thanks in advance
>Venkatram
Alexandre Palma
Senior Application Architect
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform