tcpServer.SendData txtSend.Text

End Sub

Private Sub tcpServer_DataArrival (ByVal bytesTotal As Long)

'为进入的数据声明一个变量。

'调用 GetData 方法，并将数据赋予名为 txtOutput 的 TextBox 的 Text 属性。

Dim strData As String

tcpServer.GetData strData

End Sub

    上面的步骤创建了一个简单的服务器应用程序。为了使它能够工作，还必须为它创建一个客户端的应用程序。

    要创建 TCP 客户端，请按照以下步骤执行：

    （1） 在工程中添加一个新的窗体。

    （2） 将窗体的标题改为“TCP Client”。

    （3）

上一页  [1] [2] [3] [4] [5]