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

عندي في الفورم بوتن وريتش بوكس وليست بوكس محتاج ارسل من الريتش بوكس بيانات الي الليست بوكس  بهذا الشكل 
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 
كيف اكتب الكود في البوتن وشكرا مقدمااا

للنظر

[ابراهيم ايبو]

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

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

كود :

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

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

---

(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 
كيف اكتب الكود في البوتن وشكرا مقدمااا
انا ذاهب الى البيت الان

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

[ابراهيم ايبو]

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

كود :

   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 Sub

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

(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

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

[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 


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

(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 


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

[ابراهيم ايبو]

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

اخي الم تر انك لم تجرب الكود الذي اعطيتك اياه بالرد الاول الذي عنوانه

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

وقلت لبس المطلوب واعدت وتريد سطر واحد 

====================

============

======

المهم انك وصلت الى مرادك

موفور الشكر ودوامه لاخي الحبيب عاصم 

---

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

اخي الم تر انك لم تجرب الكود الذي اعطيتك اياه بالرد الاول الذي عنوانه

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

وقلت لبس المطلوب واعدت وتريد سطر واحد 

====================

============

======

المهم انك وصلت الى مرادك

موفور الشكر ودوامه لاخي الحبيب عاصم