主题：关于tcp/ip端口接收信息问题

你想直接显示值？

Private Sub ReceiveMsg()
While True
    Dim packet As Byte() = New Byte(1024) {}
    Dim n As Integer = nStream.Read(packet, 0, packet.Length)
    Dim str As String = ""
    For i As Integer = 0 To n-1
        str = str & packet(i) & " "
    Next
    Dim txt = forms("窗口1").Controls("TextBox2")
    txt.Text &= iif(txt.text > "", vbcrlf, "") & str
End While
End Sub

如果要转换成16进制，继续改

http://www.foxtable.com/webhelp/scr/1622.htm