How to Create Mover List Boxes in Visual FoxPro

MORE INFORMATION

Step-by-Step Example

1. Start a Visual FoxPro session.
2. On the Tools menu, click Options, and then click the Controls tab.
3. Make sure the Visual Class Libraries option is selected, and then click Add, and select the following library:

      Vfp\Samples\Controls\Samples.vcx
   							

   Samples should appear in the Selected box of the Options Dialog Box,
4. Click Set As Default, then click OK.
5. On the system's File menu, click New, click Form, and click New File. A blank form will appear.
6. Click the View Classes Button on the Forms Control Tool Bar, and select Samples. The Forms Control Tool Bar has now changed.
7. Click the Moverlists Button, click in the form, and the moverlists will appear.
8. Place the table that you intend to get the list value(s) from in the Data Environment of the form.
9. Place the following code in the Init event of the form:

       SELECT <TABLENAME>
       SCAN
          THIS.MOVERLISTS1.LSTSOURCE.ADDLISTITEM(<FIELDNAME>)
       ENDSCAN
   							

Steps to Add Selected Items to a Database

1. Add the .dbf table to Data Environment of the form.
2. Add a Command Button, and place the following code in its Click Event:

      SELECT <NEWTABLENAME>
      FOR I = 1 TO THIS.PARENT.MOVERLISTS1.LSTSELECTED.LISTCOUNT
         APPEND BLANK
         REPLACE <FIELDNAME> WITH ;
            THIS.PARENT.MOVERLISTS1.LSTSELECTED.LISTITEM(I)
      ENDFOR
   							

   The records that were selected have now been written to the table of your choice.
3. To immediately see the results of the APPEND command, add:

      BROWSE