move all items from left to right

[sal21]

I have 2 listbox named lstLeft and lstRight in a form.
I have inserted in form 2 button toleft and toright

When i click on button toright copy all items from lstLeft to lstRight and viceversa with the toright button..
How to?

[HansV]

Try:

Code: Select all

Private Sub toRight_Click()
    Dim i As Long
    ' Make sure that lstRight is empty
    Me.lstRight.Clear
    ' Loop through items of lstLeft
    For i = 0 To Me.lstLeft.ListCount - 1
        ' Add item to lstRight
        Me.lstRight.AddItem Me.lstLeft.List(i)
    Next i
    ' Clear lstLeft
    Me.lstLeft.Clear
End Sub

Similar for the other.

[sal21]

Try:

Code: Select all

Private Sub toRight_Click()
    Dim i As Long
    ' Make sure that lstRight is empty
    Me.lstRight.Clear
    ' Loop through items of lstLeft
    For i = 0 To Me.lstLeft.ListCount - 1
        ' Add item to lstRight
        Me.lstRight.AddItem Me.lstLeft.List(i)
    Next i
    ' Clear lstLeft
    Me.lstLeft.Clear
End Sub

Similar for the other.

Wow! great code tks.