قرار دادن یک رشته در listbox

[arsalansalar]

با سلام
من یک سوال درباره listbox داشتم.
من در یک تکست باکس رشتهای به صورت زیر دارم

1,2,3...
حالا چی جوری میشه دستوری نوشت که این مقدارها را به صورت زیر در listbox قرار دهد؟


1
2
3
.
.

[yasser_beiraghi]

سلام
کد زير فکر مي کنم جواب کار شما باشه






Dim str() AsString
Str = Split(YourTextBox.Text, ",")
ListBox1.Items.AddRange(str)

[amirsajjadi]

با سلام


ListBox1.Items.AddRange(Split(TextBox1.Text, ","))

[arsalansalar]

سلام
کد زير فکر مي کنم جواب کار شما باشه






Dim str() AsString
Str = Split(YourTextBox.Text, ",")
ListBox1.Items.AddRange(str)


خطای زیر را می گیرد:

[arsalansalar]

با سلام


ListBox1.Items.AddRange(Split(TextBox1.Text, ","))

همون خطای می دهد که عکسشو گذاشتم

[yasser_beiraghi]

برنامه ي شما تحت وب هستش؟

[amirsajjadi]

جداکننده ی کلمات (,) رو تغییر بده

[Hajar_Nazari]

سلام
از این کدها استفاده کن .



Dim text As String
text = Me.TextBox5.Text
For i As Byte = 1 To text.Length - 1
Dim ch As Char = Mid(text, i, 1)
If ch = "," Then
Else
Me.ListBox1.Items.Add(ch)
End If
Next

[ezamnejad]

Dim text As String = "1,2,3"
For Each item As String In text.Split(",")
ListBox1.Items.Add(item)
Next