وارد کردن تمامی آیتم های یک لیست باکس به یک تکست باکس!

[niksalehi]

سلام برنامه نویس های عزیز!
من میخوام تمامی ایتم های یک لیست باکس رو توی یک تکست باکس انتقال بدم!

Private Sub add_Click()
Dim i As Integer
Text1.Text = ""
For i = 0 To lstHeadlines.ListCount - 1
Text1.Text = lstHeadlines.List(i)
Next i
End Sub

تا یه جاهاییم رفتم اما فک کنم همش اشتباهه :-"
ممنون میشم جواب بدین:بوس:

[ho3ein.3ven]

بفرمایید


Private Sub command1_Click()
For i = 0 To List1.ListCount - 1
Text1.Text = Text1.Text & " " & List1.List(i)
Next
End Sub

[Veteran]

خاصیت
multi line

تکست باکس true قرار بدین



Private Sub add_Click()
Dim i As Integer, str1ng As String
Text1.Text = ""
For i = 0 To lstHeadlines.ListCount - 1
Text1 = Text1 & lstHeadlines.List(i) & vbCrLf
Next i
End Sub

[niksalehi]

ممنونم این مشکل حل شد
حالا یه سوال دیگه، متن داحل لیستباکس فارسیه، منم میخوام همونطوری فارسی بیاد توی تکست باکس!
هم فونت تکست باکس هم لیست باکس رو فارسی کردم، اما متن داخل لیست باکس فارسیه اما تکست باکس به صورت ÈíÇäíå ãÔÊÑß Êæßáí ...... نمایش داده میشه!
برای حل این مشکل چیکار باید کرد؟

[ho3ein.3ven]

من الان تست کردم هیچ مشکلی نداشت . احتمالا از سیستم خودت باشه

[just4froum]

مسیر زیر را دنبال کن احتمالا درست میشه : ( در ویندوز سون)

control panel > region and language

بعد برو تب administrative

بعد بر روی گزینه ی Change System locale... کلیک کن

بعد persian رو انتخاب کن و Ok کن و سپس Restart Now رو بزن

کامپیوتر که بیاد بالا درست شده

موفق باشید.

[niksalehi]

مشکل فارسی حل شد ، اما اگه بخوام نصفی از متن لیستباکس توی تکستباکس 1 و نصف دیگش توی تکستباکس 2 نمایش داده بشه چه باید کرد؟:گریه:

[Veteran]

تصحیح شد


Private Sub add_Click()
Dim i As Integer, str1ng As String
Text1.Text = ""
For i = 0 To lstHeadlines.ListCount - 1
j=len(lstHeadlines.list(i))\2
text1=left(lstHeadlines.list(i),j)
text2=right(lstHeadlines.list(i),j)

Next i
End Sub

[niksalehi]

این کد باعث میشه آخرین ایتم از لیستباکس نصف بشه!
مثلا اگه َآخرین ایتم لیستباکس کلمه barnamenevis باشه، کلمه barnam تو یه تکستباکس و نویس تو یه تکستباکس دیگه نوشته میشه! :(

حل شد...!

Private Sub add_Click()
Dim i As Integer
Dim B As Integer
Text3.Text = ""
Text4.Text = ""
For i = 0 To 5
Text3.Text = Text3.Text & lstHeadlines.List(i) & vbCrLf
Next
For B = 6 To 9
Text4.Text = Text4.Text & lstHeadlines.List(B) & vbCrLf
Next
End Sub