ࡱ                ;  	                                       	                  
   R o o t   E n t r y                                                             F            e         M a t O S T                                                                             Ude            M M                                                                                                             M N 0                                                                                                           @
                     	   
         
                                                             !   "   #   $   %   &   '   (   )   *   +   ,   -   .   /   1   ND          ࡱ                ;  	                'N    T         	       
 
  
                                  =/     8  d            &   	                                                                                                      Poorman's Percent VBX is not a VBX at all, but a combination of a form and two labels. 
Well this is for those who can't afford to buy or understand how to make their own. It is my first try and making something hopefully usefull. Any suggestions or comments would be greatly appreciate. Okay

How it works.
Just Place the percent.bas and percent.frm into your project. You can't have a form1.frm named already because it will give you an error because that is the name of my percent.frm. 
Secondly while the form that will have the percent label on it is UP and VISIBLE move the percent form to where you want it to show up on the screen or add the MOVE command into the FORM_LOAD event to get it to go according to the screen or your other forms.. 
The percent form is made to obtain a height of 200 upon loading and it obtains it look of a percent bar by removing the title bar and disabling the form. 
You can call the form anyway you want but you need to usually use the FORM.SHOW command first to show it. It will automatically call the RESIZE event from the form_load event. If you want the form to be a different size change the variable in the FORM-RESIZE event. 
Now you can make use of the percent by calling the FILL procedure from the percent.bas file. You will need to add 4 variables to make sure it performs properly.
Syntax "call fill(10(or whatever), 5(or whatever), 100(normal but whatever), 0(normal but whatever))
so if would be "call fill(10,5,100,0)
This would call the sub tell it to have about a 10 second delay in use, 5 will be the increments in percent that the Bar will change color and the caption will change to reflect, 100 is the maximum number to show on the percentage bar when the task is done, and 0 is the beginning point of where the percentage bar first states on the screen.

Tip: If you place the percent.bas code into the general declarations of the form1.frm and remove the file, Then call the sub by place the caller in the FORM_RESIZE event as the last statement and utilize the same calling functions, it will work the same but will initially be invisible to the user, until the form_load call the form_resize, which will call the fill sub procedure.

Thanks..

Michael Gernaey
gernaeym@mailhost.gate.net 

full. Any suggestions or comme   	  {                                                                                                                      Y  '  )  8          ?      $  &  	  	  	  	  	  	  	                                                	      	   Times New Roman                                                                                                                                  T 6 ȭ?^ o,,   C o m p O b j                                                                                       0   E                                                                                                                                                                                                                                                                                                                                                                    
             F   Microsoft Works 
   MSWorksWPDoc     ࡱ                ;  	                        ࡱ                ;  	                                       