two list boxes

[woow]

Hi,

I have 2 list boxes side by side lets assume they are A and B, and A has list of names and when i select a name and click on the forward arrow it should appear in the B list box. Also when i again select a name from B and click the back arrow it should again appear in the A box.

Can someone please help me in how to do this. I am a newbly and I am lost as to how to do it.

Please help me.

thanks

[MartinLiss]

Set the form's KeyPreview property to True and then...

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
    Select Case KeyCode
        Case vbKeyRight
            List2.AddItem List1.List(List1.ListIndex)
            List1.RemoveItem List1.ListIndex
        Case vbKeyLeft
            List1.AddItem List2.List(List2.ListIndex)
            List2.RemoveItem List2.ListIndex
    End Select
End Sub

[ice_531]

well errr
dun got vb out but im sure if you simply did sumthin like

this shud work for goin from list1 to list2

Private Sub Command1_Click()
Dim i As Integer
 
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) = True Then
List2.AddItem List1.List(i)
List1.RemoveItem i
End If
Next
End Sub

you should be able to edit that to remove and go back to list1


ice

[ice_531]

yes im bored.. i made a qwik sample for u

does wut u wanted i believe..
im attaching the form