Microsoft KB Archive/148333

= How to Create a Multiple-Select Mover List Box Using Code =

Article ID: 148333

Article Last Modified on 9/30/2003

-

APPLIES TO


 * Microsoft Visual FoxPro 3.0 Standard Edition
 * Microsoft Visual FoxPro 3.0b Standard Edition

-



This article was previously published under Q148333



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
 Create a new form, and add a table to the Data Environment. Set the AutoOpenTables and the AutoCloseTables properties values in the Data Environment to false (.F.).  Place the following code in the Init event of the form: PUBLIC blist       && variable used in the Browse Button blist='' USE FOR gnCount = 1 TO FCOUNT  && Loop for number of fields THISform.list1.ADDITEM(Field(gnCount)) NEXT   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.                         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.                         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.                       </li>  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.                       </li>  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.                       </li>  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.                       </li>  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 </li> Place the following code in the click event of an Exit button: USE Thisform.Release</li> Run the form.</li></ol>

<div class="references_section">