کمک در مورد listbox

[r0ot$harp]

سلام خوبین بچه ها
من می خوام وقتی یه نوشته ای داخل لسیت باکس هست روش که کلیک می شه اونو تو یه تکست باکس بریزه من این و کارو کردم ولی فقط یه دونه تو تکست باکس چاپ می کنه من می خوام با هر بار کلیک یه دونه چاپ کنه ممنون

[S_VB.max]

با این که متوجه نشدم چی می خوای

Private Sub List1_Click()
Text1.Text = List1.Text
End Sub

[h_sadeghynejad]

اگه درست فهمیده باشم میخواهید روی هر کدوم که کلیک کرد متن کلیک شده رو بریزه داخل یه textBox که کدش اینه خیلی راحت:
Text1.Text = List1.Text
اینو بزارید توی رویداد کلیک ListBox

[__siavash__]

این جا بالا خره هیچ کس نفهمید منظورت چیه !
شایدم منظورت اینه :


Private Sub List1_Click()
Text1.Text = Text1.Text & " " & List1.Text
End Sub

هر بار کلیک کنی متن جدید به قبلی اضافه میشه

[CodeMasterX]

اگه منظورت همونی باشه که سیاوش هم متوجه شد،به کدش باید یه چیز دیگه هم اضافه کنی تا مشکلی تو خروجی ها پیش نیاد:



Private Sub List1_Click()
If Text1.Text = "" Then Text1.Text = List1.Text
Else
Text1.Text = Text1.Text & VbCrlf & List1.Text
End If


یادت باشه باید خواص Multine و Scrollbars مربوط به تکست باکس رو تنظیم کنی.

[r0ot$harp]

سلام بچه ها ممنون که جواب سوالم رو دادین من adslam قطع شده بود این شرکتش هم قاط زده بود نمی دونم چی شده بود ممنون آقا سیاوش کده شما جواب داد ممنون .

[__siavash__]

سلام بچه ها ممنون که جواب سوالم رو دادین من adslam قطع شده بود این شرکتش هم قاط زده بود نمی دونم چی شده بود ممنون آقا سیاوش کده شما جواب داد ممنون .
خواهش میکنم!
اما کد CodeMasterX به نظر من بهتر جواب میداد!