VB Source Code

[syed rashid]

Dear All,

I have a listbox with various items like : Ali, Aslam, Akram, Jone, Mikle, Ebrahim etc.
Now I have to select more than one items like : Jone, Aslam, Akram in a Textbox.

Could anyone let me know the code.

Rashid

[Jx_Man]

Set MultiSelect = 2 - Extend in Listbox properties.
Press "Ctrl" while you select items.

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
    If List1.Selected(i) Then
        Text1.Text = Text1 + List1.List(i) + ","
    End If
Next

End Sub

[Marius_1]

This is one:

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=75111&lngWId=1

[ling_tj]

just improvement from Jx_man's code

Dim i As Integer
For i = 0 To List1.ListCount - 1
    If List1.Selected(i) Then
    '    Text1.Text = Text1 + List1.List(i) + ","
        If Text1.Text = "" Then
            Text1.Text = List1.List(i)
        Else
            Text1.Text = Text1 + "," + List1.List(i)
        End If
    End If
Next