DOCUMENT:Q148333  10-FEB-2000  [foxpro]
TITLE   :How to Create a Multiple-Select Mover List Box Using Code
PRODUCT :Microsoft FoxPro
PROD/VER:WINDOWS:3.0,3.0b
OPER/SYS:
KEYWORDS:kbcode

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual FoxPro for Windows, versions 3.0, 3.0b 
-------------------------------------------------------------------------------

SUMMARY
=======

In many examples and documentation showing the List Control in Visual FoxPro,
you may see a mover list or multiple-select mover list shown. To see the code
for a mover list box, type the following command in the Command window, and
select Sample.vcx in the open dialog window:

   MODIFY CLASS ? OF C:\Vfp\Samples\Controls\Samples.vcx

Then select Moverlist under Classname. Code can be used from the Samples.VCX to
create your own mover list box. The code in this article illustrates this.

MORE INFORMATION
================

The following code creates a mover list box that stores the field names of a
table in a list box. The values can then be moved into a second list box. A
BROWSE FIELDS statement is then issued based on the contents of the second list
box.

Step-by-Step Example
--------------------

1. Create a new form, and add a table to the Data Environment.

2. Set the AutoOpenTables and the AutoCloseTables properties values in the Data
   Environment to false (.F.).

3. Place the following code in the Init event of the form:

      PUBLIC blist        && variable used in the Browse Button
      blist=''
      USE <tablename>
      FOR gnCount = 1 TO FCOUNT( )   && Loop for number of fields
         THISform.list1.ADDITEM(Field(gnCount))
      NEXT

4. Place the following code in the Doubleclick event of the List1 box:

      Thisform.Lockscreen=.T.
      nCnt = 1
      DO WHILE nCnt <= Thisform.List1.ListCount
         IF Thisform.List1.Selected(nCnt)
            Thisform.List2.AddItem(Thisform.List1.List(nCnt))
            Thisform.List1.RemoveItem(nCnt)
         ELSE
            nCnt = nCnt + 1
         ENDIF
      ENDDO
      Thisform.Lockscreen=.F.

5. Place the following code in the Doubleclick event of the List2 box:

      Thisform.Lockscreen=.T.
      nCnt = 1
      DO WHILE nCnt <= thisform.list2.ListCount
         IF Thisform.List2.Selected(nCnt)
            Thisform.List1.AddItem(Thisform.List2.List(nCnt))
            Thisform.List2.RemoveItem(nCnt)
         ELSE
            nCnt = nCnt + 1
         ENDIF
      ENDDO
      Thisform.Lockscreen=.F.

6. Place the following code in the Click event of a command button to move a
   selection from List1 to List2 ( > ):

      Thisform.Lockscreen=.T.
      cnt=Thisform.List1.Listindex
      IF Thisform.List1.Selected(cnt) = .T.
        nCnt = 1
        DO WHILE nCnt <= Thisform.List1.ListCount
         IF Thisform.List1.Selected(nCnt)
           Thisform.List2.AddItem(Thisform.List1.List(nCnt))
           Thisform.List1.RemoveItem(nCnt)
         ELSE
           nCnt = nCnt + 1
         ENDIF
        ENDDO
      ELSE
        =MESSAGEBOX('Please Highlight Your Choice')
      ENDIF

      Thisform.Lockscreen=.F.

7. Place the following code in the Click event of a command button to move all
   the values from the List1 to List2 ( >> ):

      Thisform.LockScreen = .T.
      FOR i = 1 to Thisform.List1.ListCount
         Thisform.List2.AddItem(Thisform.List1.List(i))
      ENDFOR
      Thisform.list1.Clear
      Thisform.LockScreen = .F.

8. Place the following code in the Click event of a command button to move a
   selection from List2 to List1 ( < ):

      Thisform.Lockscreen=.T.
      cnt=Thisform.List2.Listindex
      IF Thisform.List2.Selected(cnt) = .T.
         nCnt = 1
      DO WHILE nCnt <= Thisform.List2.ListCount
       IF Thisform.List2.Selected(nCnt)
        Thisform.List1.AddItem(Thisform.List2.List(nCnt))
        Thisform.List2.RemoveItem(nCnt)
       ELSE
        nCnt = nCnt + 1
       ENDIF
      ENDDO
      ELSE
      =MESSAGEBOX('Please Highlight Your Choice')
      ENDIF
      Thisform.Lockscreen=.F.

9. Place the following code in the Click event of a command button to move all
   the values from List2 to List1 ( << ):

      Thisform.LockScreen = .T.
      FOR i = 1 to thisform.list2.ListCount
        Thisform.List1.AddItem(Thisform.List2.List(i))
      ENDFOR
      Thisform.List2.Clear
      Thisform.LockScreen = .F.

10. Place The Following Code In The Click event of a Browse button:

       blist=''
       bval=''
       Thisform.LockScreen = .T.
       FOR x = 1 to Thisform.List2.Listcount
         IF x=1
            blist=Thisform.List2.List(x)
         ELSE
            blist=','+Thisform.List2.List(x)
         ENDIF
            bval=bval+blist
       ENDFOR
       Thisform.LockScreen = .F.
       BROWSE FIELDS &bval

11. Place the following code in the click event of an Exit button: USE
   Thisform.Release

12. Run the form.

REFERENCES
==========

For more information about mover list boxes, please see the following article in
theMicrosoft Knowledge Base:

   Q142190 How to Create Mover List Boxes in Visual FoxPro

Additional query words: VFoxWin

======================================================================
Keywords          : kbcode 
Technology        : kbVFPsearch kbAudDeveloper kbVFP300 kbVFP300b
Version           : WINDOWS:3.0,3.0b

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 2000.