منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عندي في الفورم بوتن وريتش بوكس وليست بوكس محتاج ارسل من الريتش بوكس بيانات الي الليست بوكس  بهذا الشكل 
1
2
3 
وتوصل لليست بوكس بفس الشكل 
1
2
3 
وليس 123 
كيف اكتب الكود في البوتن وشكرا مقدمااا

---

(01-08-19, 05:29 PM)اليوم السابع كتب : [ -> ]عندي في الفورم بوتن وريتش بوكس وليست بوكس محتاج ارسل من الريتش بوكس بيانات الي الليست بوكس  بهذا الشكل 
1
2
3 
وتوصل لليست بوكس بفس الشكل 
1
2
3 
وليس 123 
كيف اكتب الكود في البوتن وشكرا مقدمااا

---

(01-08-19, 05:29 PM)اليوم السابع كتب : [ -> ]عندي في الفورم بوتن وريتش بوكس وليست بوكس محتاج ارسل من الريتش بوكس بيانات الي الليست بوكس  بهذا الشكل 
1
2
3 
وتوصل لليست بوكس بفس الشكل 
1
2
3 
وليس 123 
كيف اكتب الكود في البوتن وشكرا مقدمااا

---

(01-08-19, 05:29 PM)اليوم السابع كتب : [ -> ]عندي في الفورم بوتن وريتش بوكس وليست بوكس محتاج ارسل من الريتش بوكس بيانات الي الليست بوكس  بهذا الشكل 
1
2
3 
وتوصل لليست بوكس بفس الشكل 
1
2
3 
وليس 123 
كيف اكتب الكود في البوتن وشكرا مقدمااا

للنظر

(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

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

وتوصل لليست بوكس بفس الشكل 
1
2
3 
وليس 123 
كيف اكتب الكود في البوتن وشكرا مقدمااا
انا ذاهب الى البيت الان

(01-08-19, 07:25 PM)ابراهيم ايبو كتب : [ -> ]وتوصل لليست بوكس بفس الشكل 
1
2
3 
وليس 123 
كيف اكتب الكود في البوتن وشكرا مقدمااا
انا ذاهب الى البيت الان

توصل بالسلامه رعاك الله ان شاء الله

عدنا والعود احمد
تفضل حسب ماتريد

(01-08-19, 08:05 PM)ابراهيم ايبو كتب : [ -> ]عدنا والعود احمد
تفضل حسب ماتريد

كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       ListBox1.Items.Clear()
       Dim kk As String = ""
       If RichTextBox1.Text <> Nothing Then
           Dim ListLine As New List(Of String)(RichTextBox1.Lines)
           For Each itm As String In ListLine
               kk += itm
           Next
           ListBox1.Items.Add(kk)
       End If
   End

شكرا اخي ابراهيم ولكن نفس النتيجه يظهر كل النصوص علي هيئه سطر واحد في الليست بوكس

عدله ليكون هكذا :

(02-08-19, 03:12 AM)asemshahen5 كتب : [ -> ]عدله ليكون هكذا :

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        Dim kk As String = ""
        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 


الله ينور هو ده المطلوب بالظبط

---