[اليوم السابع]

(01-08-19, 07:09 PM)ابراهيم ايبو كتب :

السلام عليكم اخي الكريم

تفضل الكود كما يوجد في الريتش  سيكون في الليست بوكس

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ListBox1.Items.Clear()
       If RichTextBox1.Text <> Nothing Then
           Dim ListLine As New List(Of String)(RichTextBox1.Lines)
           For Each itm As String In ListLine
               ListBox1.Items.Add(itm)
           Next
       End If
   End Sub

شكرا يا هندسه علي تعبك ولكن عرض الكلام كله في سطر واحد في الليست بوكس وليس سطر سطر

---

(01-08-19, 07:09 PM)ابراهيم ايبو كتب :

السلام عليكم اخي الكريم

تفضل الكود كما يوجد في الريتش  سيكون في الليست بوكس

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ListBox1.Items.Clear()
       If RichTextBox1.Text <> Nothing Then
           Dim ListLine As New List(Of String)(RichTextBox1.Lines)
           For Each itm As String In ListLine
               ListBox1.Items.Add(itm)
           Next
       End If
   End Sub

اضع الارقام او النصوص كاهذا اريدها تذهب الي الليست بوكس كماهي وليس في سطر واحد