ریختن مقدار در لیست باکس

[raina123]

سلام

من یه تکست دارم

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

منتها هر کاری می کنم نمیشه


دوستانی که مشرف هستند اگه ممکنه کمک کنند

[m.4.r.m]

Private Sub Command1_Click()
List1.AddItem Text1.Text
End Sub

[raina123]

دستت درد نکنه
فقط اینکه چونکه توی هر سطر یه کلمه هست
من می خوام اونجوری به لیست باکس اضافه بشه
حالا باید چیکار کنم ؟

[محسن واژدی]

سلام علیکم
کد زیر هم بررسی کنید:
Private Sub Command1_Click()
Dim vCrLn
List1.Clear
For Each vCrLn In Split(Text1.Text, vbCrLf)
List1.AddItem vCrLn
Next
End Sub

موفق باشید

[m.4.r.m]

Private Sub Command1_Click()
On Error Resume Next
Dim St() As String
St() = Split(Text1.Text, vbCrLf)
For i = 0 To Len(Text1.Text) - 1
List1.AddItem St(i)
Next i
End Sub