[harismania]

i would like to import all data from listbox to a textbox as it looks like in listbox. (vb6)
Cheers

[guyfromri]

harismania, on 07 August 2010 - 06:29 PM, said:

i would like to import all data from listbox to a textbox as it looks like in listbox. (vb6)
Cheers

Do you have any code yet?

[Kinwang2009]

I hope below code will give you some clue.

Private Sub Command1_Click()
Dim i As Integer
    For i = 0 To List1.ListCount
    If Text1.Text = "" Then
    Text1.Text = List1.List(i)
    Else
    Text1.Text = Text1.Text & vbNewLine & List1.List(i)
    End If
    Next i
End Sub

[raziel_]

perhaps a better way

Private Sub Command1_Click()
Dim i As Integer
Text1.Text =""
    For i = 0 To List1.ListCount-1
         Text1.Text = Text1.Text & List1.List(i)& vbNewLine
    Next i
End Sub

oh yea and i am pretty sure it must be to ListCount-1

This post has been edited by NoBrain: 10 August 2010 - 01:44 AM

[Kinwang2009]

Oh yea sure it should be ListCount-1. Thankx for correction

[harismania]

NoBrain, on 10 August 2010 - 12:43 AM, said:

perhaps a better way

Private Sub Command1_Click()
Dim i As Integer
Text1.Text =""
    For i = 0 To List1.ListCount-1
         Text1.Text = Text1.Text & List1.List(i)& vbNewLine
    Next i
End Sub

oh yea and i am pretty sure it must be to ListCount-1

Thanks 'NoBrain' that worked and problem solved
Cheers

[huejii]

Sir how about vice versa....


all the text on the textbox will transfer again to listbox...

how do i code that????


thanks in advance...

[raziel_]

post the code that you have tried and we will try to help you