作者Xavier (X.avi(er))
看板Visual_Basic
标题[.NET] Textbox 内容消失
时间Mon Apr 25 17:05:35 2016
大家好!
我写一个 SERVER SOCKET接收资料，
Dim ListenThread As New Thread(AddressOf StartListen)
ListenThread.IsBackground = True
ListenThread.Start()
////////////////////////////////////////////////////
Private Sub StartListen()
Try
serverSocket = New Socket(AddressFamily.InterNetwork,
SocketType.Stream, ProtocolType.Tcp)
Dim serverIP As IPAddress = IPAddress.Parse(txtip.Text)
Dim Port As String = txtport.Text
Dim serverhost As New IPEndPoint(serverIP, Int32.Parse(Port))
serverSocket.Bind(serverhost)
serverSocket.Listen(50)
UpdateText("Server started at: " + serverIP.ToString() + ":" +
Port)
Do
ClientSocket = serverSocket.Accept()
If ClientSocket.Connected = True Then
Dim ReceiveThread As New Thread(AddressOf ReceiveData)
ReceiveThread.IsBackground = True
ReceiveThread.Start()
End If
Loop
Catch ex As Exception
UpdateText(ex.StackTrace.ToString())
End Try
////////////////////////////////////////////////////////
Private Sub ReceiveData()
Dim myNetworkStream As New NetworkStream(ClientSocket)
Dim InBytesCount As Integer = 0
Dim myReceiveBytes(1023) As Byte
Dim i As Integer = 0
While True
Try
InBytesCount = myNetworkStream.Read(myReceiveBytes, 0,
myReceiveBytes.Length)
System.Threading.Thread.Sleep(100)
If InBytesCount = 0 Then
Exit While
End If
UpdateText(Encoding.GetEncoding(950).GetString(myReceiveBytes).
TrimEnd().TrimStart())
Catch ex As Exception
MessageBox.Show(ex.ToString)
Exit Sub
End Try
End While
End Sub
//////////////////////////////////////////////////////////////
Private Sub UpdateText(ByVal comData As String)
'如果呼叫txtReceive的是另外的执行绪，传回True
If Me.TxtReceive.InvokeRequired Then
'利用委派型别建立委派物件，并指定委派的函式
Dim d As New SetTextCallback(AddressOf GetUpdateText)
'用大括号 {} 括住初始值，藉以初始化阵列的值。
Try
Me.Invoke(d, New Object() {comData})
'以指定的引数清单叫用函式
Catch ex As Exception
End Try
Else '相同的执行绪
GetUpdateText(comData) '将收到的资料填入接收文字框中
End If
End Sub
///////////////////////////////////////////////////////////////
Private Sub GetUpdateText(ByVal comData As String)
txtRecord.Text = comData + vbCrLf + txtRecord.Text
End Sub
然後我用手机当CLIENT发送几道指令，EX. (STX)123456(ETX)
结果 txtRecord 只会显示当下收到的指令，
而没有印出所有指令，
请问要怎麽修改才能印出所有指令呢?
感谢!
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 61.221.47.106
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1461575137.A.08C.html
1F：推 Marty: Textbox属性改成可以显示多行? 04/25 17:12
2F：→ Xavier: 已经是多行了! 3Q 04/25 17:14
3F：→ Xavier: StartListen()里面也会印资料，也会叠加旧内容 04/25 17:16
4F：→ Xavier: 唯独 ReceiveData()里印资料之後却只剩最新的一行 04/25 17:17
5F：→ Xavier: 不知道是为什麽...orz 04/25 17:25
6F：→ niwat: 加入application.doevent会不会有用? 04/26 09:36