WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

Dialog Editor version 6.X
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Dialog with Two Listboxes and Buttons to Move Items Between Listboxes

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:   W15461
File Created: 2006:03:03:15:18:42
Last Updated: 2006:03:03:15:18:42