Controls - Status Bar

There exists a "Status Bar" control:
simply check the following for your Project Components:
"Microsoft Windows Common Controls x.0"

CHeers

... now, when you set the simpletext value, don't forget to use the DOEVENTS function to allow the text to be drawn...

CHeers

Hi,

   You can also use the progress bar. First set a maximum value.

Like

 Progressbar.Max = 1000
 I = 0

 Within the loop you can mention like
 
 ProgressBar.Value = I;
 I = I +1;

 This will be more usefull if you are reading a file. Just get the max no of records of the file and give it as the maximum value for the ProgressBar.

 Like ProgressBar.Max = No of records.

 Whenever you read one record. increment the value of
I=0
Do EOF()
   ProgressBar.Value = I
   I = I + 1
End Loop

So this will give you a transfer progree until your task is completed.

I always like to use a combination of the statusbar and progress bar.

For example the way Internet Explore uses the statusbar and then a type of progress bar in a panel of the statusbar to calculate page timeout.  

You can do this by placing the progressbar over top of the statusbar to fit in whatever panel you want.

Hope this helps

The most important thing, is to see that the user does not click any thing on the form when some processing is 'ON'

This can be taken care by setting the

1)Form.Enabled=False

2)PLUS showing the mouse icon as 'Hour-glass'(change it back to the default after the process).

This will surely make the user aware that some process is going on and therefore wont allow the user to click on the an buttons on the form.

The progress bar and status added to the above code will make the application more professional.

I hope this info helps

-priya

dont forget to do this after the process..

Form1.Enabled=True

Thanks

I have found the status bar control - how do i make it do things........

Drag and Drop the status bar on your form.  By default it will be placed at the bottom of the form.

Then in the code you can change the text like this

Private Sub Command1_Click()
StatusBar1.Panels(1) = "This will take some time...Pls Wait"
frm1.MousePointer=11
'..some of your code goes here, ie opening your recordset
'opening IE or web browser..etc
StatusBar1.Panels(1)="Processing...."
'..some more code goes here..
'StatusBar1.Panels(1)="Done"
frm1.MousePointer=0
End Sub

Also as i suggested , maked the form inactive and the mousePointer=hourglass

-priya

also, you can add more Panels on your status bar. This can be done at design time. Go the the status bar properties and Custom properties, Panels tab, Isert Panels to insert more than the Panels you require.

Change the caption of the Panel at runtime, in your code

-priya