(Help)How To Transfer MultipleSelect Item In Listbox to another Listbox ?

[gemxsec]

Excuse me
I want to ask How To Transfer MultipleSelect Item In Listbox to another Listbox ?

[June7]

Do you want the 'transfer' to occur immediately when selected? Use Click event of the multi-select listbox with AddItem method to add rows to the second listbox.

Why do you want to do this?

[gemxsec]

I want to try transfer item in the listbox to another listbox.
I succeed to transfer selected item, but I can't transfer multipleselect item.
Help me please.

[June7]

You have to loop through the listbox selected items.
Review
http://allenbrowne.com/ser-50.html
http://office.microsoft.com/en-us/ou...080805489.aspx.
Your adaptation would be something like:

  
    With Me.lstBox1
        For Each varItem In .ItemsSelected
            If Not IsNull(varItem) Then
                Me.lstBox2.AddItem(varItem) 'I am not sure about this syntax
            End If
        Next
    End With

This thread http://www.vb6.us/tutorials/indepth-...stbox-tutorial has a lot of info about working with listboxes. Your issue is discussed about quarter of the way down.

[gemxsec]

You have to loop through the listbox selected items.
Review
http://allenbrowne.com/ser-50.html
http://office.microsoft.com/en-us/ou...080805489.aspx.
Your adaptation would be something like:

  
    With Me.lstBox1
        For Each varItem In .ItemsSelected
            If Not IsNull(varItem) Then
                Me.lstBox2.AddItem(varItem) 'I am not sure about this syntax
            End If
        Next
    End With

This thread http://www.vb6.us/tutorials/indepth-...stbox-tutorial has a lot of info about working with listboxes. Your issue is discussed about quarter of the way down.

sorry, Can u explain this script

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

Why that's script not work, when I try it.

http://www.vbexplorer.com/VBExplorer...0/june2000.asp

[June7]

Don't know, what happens - error message, wrong results, nothing? Where did you put the code?

[gemxsec]

error.
http://www.vbexplorer.com/VBExplorer...0/june2000.asp

[June7]

I don't understand. The error is 'error'? Need more info.

I have never set up listboxes like this.

Can provide the file for analysis. Follow instructions at bottom of my post.