[khaled12345]

ألسلام عليكم ورحمة الله وبركاته

عملت مشروع صغير لادخال المعلومات من ال RichBox  الي ال ListBox

ولكن تدخل المعلومات بجانب بعضها وليس تحت بعضها

فاريد كل سطر في ال  Rich boxٌ

ينزل في سطر منفصل في ال ListBox

فرجاء فحص المرفقات

ولكم جزيل الشكر

---

(22-05-17, 08:12 AM)khaled12345 كتب : ألسلام عليكم ورحمة الله وبركاته

عملت مشروع صغير لادخال المعلومات من ال RichBox  الي ال ListBox

ولكن تدخل المعلومات بجانب بعضها وليس تحت بعضها

فاريد كل سطر في ال  Rich boxٌ

ينزل في سطر منفصل في ال ListBox

فرجاء فحص المرفقات

ولكم جزيل الشكر

[alma2]

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim arr() As String = RichTextBox1.Text.Split(vbLf)
        For Each s As String In arr
            ListBox1.Items.Add(s.Trim)
        Next
        RichTextBox1.Clear()
        RichTextBox1.Focus()
    End Sub

[khaled12345]

(22-05-17, 08:36 AM)alma2ألف مليون شكر استاذي الحبيب تعمل تمام بارك الله فيك كتب :

كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim arr() As String = RichTextBox1.Text.Split(vbLf)
       For Each s As String In arr
           ListBox1.Items.Add(s.Trim)
       Next
       RichTextBox1.Clear()
       RichTextBox1.Focus()
   End Sub