How to Create a General Purpose Reusable Navigation Toolbar

MORE INFORMATION

Steps to Create Custom Toolbar

1. Choose New from the File menu, and select Visual Class as the file type.
2. Use the Visual Class Designer to create a new class based on the Toolbar base class. To this class, add four command buttons. Change the caption property for each button to <<, <, >, and >>.
3. Add the following code to the click method of each command button as indicated:

      Command1.Click (<<):
   
         GO TOP
   
      Command2.Click (<):
   
         SKIP -1
         IF BOF()
            GO TOP
         ENDIF
   
      Command3.Click (>):
   
         SKIP +1
         IF EOF()
            GO TOP
         ENDIF
   
      Command4.Click (>>):
   
         GO BOTTOM
   							

4. Save this new class.
5. Create a new form, and set the Visible property of the form to false (.F.). If the visible property on the form is set to true (.T.), meaning that the toolbar will be used as a navigation toolbar to move through records in a form, add the command _SCREEN.ACTIVEFORM.REFRESH to the code of each one of the command button's click events as the last line of code. Add the Toolbar class you just created and save the form. Choose Yes when prompted to create a formset. Confirm that the Visible property of the toolbar is set to true (.T.).
6. In the destroy procedure for the toolbar, place the following code to release the Toolbar and Formset memory when the Toolbar is closed:

      RELEASE THISFORMSET
   							

7. Run the form.

   command= DO FORM <PATH\FORM NAME>