منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تضبيط ادخال المعلومات من Rich box الي ال ListBox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تضبيط ادخال المعلومات من Rich box الي ال ListBox (/showthread.php?tid=20490)

تضبيط ادخال المعلومات من Rich box الي ال ListBox - khaled12345 - 22-05-17

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

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

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

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

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

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

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

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

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

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

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

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

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


RE: تضبيط ادخال المعلومات من Rich box الي ال ListBox - alma2 - 22-05-17

كود :
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


RE: تضبيط ادخال المعلومات من Rich box الي ال ListBox - khaled12345 - 22-05-17

(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