Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Keywords: dialog two listboxes move copy
; -- Generate some dummy data to display ;LeftList = "Alpha|Bravo|Charlie|Delta|Echo|Foxtrot|Golf|Hotel|India|Juliet" ;LeftList = StrReplace(LeftList,"|",@TAB) LeftList = FileItemize("c:\temp\data\*.*") ;RightList = "Kilo|Lima|Mike|November|Oscar|Papa|Quebec|Romeo|Sierra|Tango" ;RightList = StrReplace(RightList,"|",@TAB) RightList = FileItemize("c:\temp\*.*") ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ; Show the user the lists ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ IntControl (33, 0, 0, 0, 0) ; Single Selection in dialog boxes. IntControl (49, 0, 0, 0, 0) ; No system menus. IntControl (52, 0, 0, 0, 0) ; Use system font IntControl (28, 1, 0, 0, 0) ; Fixed pitch font in list boxes While @TRUE LeftPick = LeftList RightPick = RightList SplitFormFormat=`WWWDLGED,6.1` SplitFormCaption=`Example Program` SplitFormX=069 SplitFormY=059 SplitFormWidth=233 SplitFormHeight=177 SplitFormNumControls=007 SplitFormProcedure=`DEFAULT` SplitFormFont=`DEFAULT` SplitFormTextColor=`DEFAULT` SplitFormBackground=`DEFAULT,DEFAULT` SplitFormConfig=0 SplitForm001=`009,007,063,011,STATICTEXT,DEFAULT,"Server A",DEFAULT,1,DEFAULT,DEFAULT,DEFAULT,DEFAULT` SplitForm002=`113,007,071,011,STATICTEXT,DEFAULT,"Server B",DEFAULT,2,DEFAULT,DEFAULT,DEFAULT,DEFAULT` SplitForm003=`007,022,102,129,ITEMBOX,LeftPick,DEFAULT,DEFAULT,3,DEFAULT,DEFAULT,DEFAULT,DEFAULT` SplitForm004=`111,022,110,129,ITEMBOX,RightPick,DEFAULT,DEFAULT,4,DEFAULT,DEFAULT,DEFAULT,DEFAULT` SplitForm005=`071,158,030,010,PUSHBUTTON,DEFAULT,"--->",11,5,DEFAULT,DEFAULT,DEFAULT,DEFAULT` SplitForm006=`110,158,030,010,PUSHBUTTON,DEFAULT,"<---",12,6,DEFAULT,DEFAULT,DEFAULT,DEFAULT` SplitForm007=`185,154,030,011,PUSHBUTTON,DEFAULT,"Exit",13,7,DEFAULT,DEFAULT,DEFAULT,DEFAULT` ButtonPushed=Dialog("SplitForm") If ButtonPushed == 11 Then GoSub MoveRight If ButtonPushed == 12 Then GoSub MoveLeft If ButtonPushed == 13 Then Break ListA=StrReplace(LeftList,@TAB,@CRLF) handle=FileOpen("C:\temp\LeftList.txt", "WRITE") FileWrite(handle,ListA) FileClose(handle) ListB=StrReplace(RightList,@TAB,@CRLF) handle=FileOpen("C:\temp\RightList.txt", "WRITE") FileWrite(handle,ListB) FileClose(handle) EndWhile Return :MoveLeft If RightPick == "" Message ("No Selection","You must select an item to move.") Return EndIf X = ItemLocate(RightPick,RightList,@TAB) RightList = ItemRemove(X,RightList,@TAB) LeftList = ItemInsert(RightPick,-1,LeftList,@TAB) LeftList = ItemSort(LeftList,@TAB) Return :MoveRight If LeftPick == "" Message ("No Selection","You must select an item to move.") Return EndIf X = ItemLocate(LeftPick,LeftList,@TAB) LeftList = ItemRemove(X,LeftList,@TAB) RightList = ItemInsert(LeftPick,-1,RightList,@TAB) RightList = ItemSort(RightList,@TAB) Return
Article ID: W15461File Created: 2006:03:03:15:18:42Last Updated: 2006:03:03:15:18:42