label.text не показывает readline

Question

Мне нужно работать с сетевой программой на vb 2010. Я пытаюсь показать поток ReadLine в тексте метки, но он не будет отображаться. Пожалуйста, помогите.

Dim tcpCli As TcpClient = tcpList.AcceptTcpClient() 'claiming tcp listener to accept the tcp client

Dim ns As NetworkStream = tcpCli.GetStream ' assign ns as network stream and assign as client to get nw stream
Dim sr As New StreamReader(ns)

''''''''' get data from client '''''''''''''''
Dim list As New List(Of String)
Dim receivedData As String = sr.ReadLine()

MsgBox("Operation Performed!!!", MsgBoxStyle.Information, "Accepted by client")
Form1.lblRreadStream.Text = receivedData.ToString() '<< this is the line i'm stuck in with.

Answer 1

В зависимости от ваших требований вы можете выполнить одно из следующих действий:

    Dim receivedData As String = sr.ReadLine()
    While (sr.ReadLine() <> Nothing)
        receivedData += sr.ReadLine()
    End While

    Form1.lblRreadStream.Text = receivedData

Или вы можете прочитать весь поток сразу:

   Form1.lblRreadStream.Text = sr.ReadToEnd()

Надеюсь, это поможет