(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

(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