Zone de texte de texte à listbox éléments vb.net

Ok, donc j'ai une zone de texte qui obtient des éléments à partir d'un site web et les pâtes dans la liste de la boîte de ajoute les éléments, mais je veux que chaque ligne dans la zone de texte à un nouvel élément à la place qu'il ajoute tout ça comme un

voilà mon code

    '  Procedure:
    Dim Str As System.IO.Stream
    Dim srRead As System.IO.StreamReader
    Try
        ' make a Web request
        Dim req As System.Net.WebRequest = System.Net.WebRequest.Create("http://76.31.248.130/videos.txt")
        Dim resp As System.Net.WebResponse = req.GetResponse
        Str = resp.GetResponseStream
        srRead = New System.IO.StreamReader(Str)
        ' read all the text 
        TextBox2.Text = srRead.ReadToEnd
    Catch ex As Exception
        TextBox2.Text = "Unable to download content"
    Finally
        '  Close Stream and StreamReader when done
        srRead.Close()
        Str.Close()
    End Try
    ' Assign string to reference.
    Dim value1 As String = TextBox2.Text


    ' Replace word with another word.
    Dim value2 As String = value1.Replace("<br>", vbNewLine)
    TextBox2.Text = value2
    ListBox1.Items.Add(TextBox2.Text)
InformationsquelleAutor Dalton Metzler | 2011-08-16
  1. 2

    Votre question est très difficile à comprendre. Je pense que la réponse est de diviser la zone de texte du texte dans un tableau où chaque élément est une seule ligne, puis ajoutez-les toutes à la zone de liste.

    Vous voulez probablement:

    ListBox1.Items.AddRange(TextBox2.Text.Split(vbNewLine))
    InformationsquelleAutor Foole
  2. 1

    SON AUSSI SIMPLE QUE
    ListBox1.Éléments.AddRange(TextBox1.Texte.Split(vbNewLine)) ou
    ListBox1.Éléments.AddRange(TextBox1.Texte.Split(vbcrlf)

    InformationsquelleAutor Nirav
  3. 1

    essayez d'utiliser srRead.readline au lieu de srRead.readtoend

    Dim a As String
Try
        Do
            a = srRead.ReadLine
            If a <> Nothing Then
                ListBox1.Items.Add(a)
            End If
        Loop Until a Is Nothing
    Catch
    End Try

    Désolé si je n'ai pas réussi à comprendre votre question

    InformationsquelleAutor Nitron