可以用一个 WinSock 来实现。假设客户端有一个由 3 个文本框组成的控件数组,那么:
(1)服务器代码如下:
WinSock1.SendData "[1]Hello" & vbNewLine
WinSock1.SendData "[2]Visual" & vbNewLine
WinSock1.SendData "[3]Basic" & vbNewLine
(2)客户端 WinSock 控件的 DataArrival 事件代码如下:
Dim strData As String, strText As String
WinSock1.GetData strData, vbString
strText = Mid(strData,4)
Select Case Left(strData,3)
Case "[1]": Text1(0).Text = strText
Case "[2]": Text1(1).Text = strText
Case "[3]": Text1(2).Text = strText
End Select