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

(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

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