16,554
社区成员
发帖
与我相关
我的任务
分享
send
receive
.......
send
receive
的顺序处理。你改为“脑裂”的两个线程,有什么必要画蛇添足呢?
Dim S As Socket
Dim thrRecv As Threading.Thread
Private Sub Recv()
Do
Dim b(1023) As Byte
S.Receive(b)
BeginInvoke(Sub()
'UI线程的代码
End Sub)
Loop
End Sub
Private Sub Send(ByVal data() As Byte)
S.Send(data)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
thrRecv = New Threading.Thread(AddressOf Recv)
thrRecv.Start()
Send(New Byte() {1, 2, 3, 4})
End Sub