首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB的winsock控件,该怎么处理

2013-01-05 
VB的winsock控件这是一个msdn上的例子:客户端Private Sub Form_Load()Winsock 控件的名字为 tcpClient。

VB的winsock控件
这是一个msdn上的例子:
客户端
Private Sub Form_Load()
   'Winsock 控件的名字为 tcpClient。
   '注意:要指定远程主机,可以使用
   ' IP 地址(例如:"121.111.1.1"),也可以使用
   '计算机的“好听的名字”如下所示。
   tcpClient.RemoteHost = "GL-1"
   tcpClient.RemotePort = 1001
End Sub

Private Sub cmdConnect_Click()
   '调用 Connect 方法,初始化连接。
   tcpClient.Connect
End Sub

Private Sub txtSendData_Change()
   tcpClient.SendData txtSend.Text
End Sub

Private Sub tcpClient_DataArrival _
(ByVal bytesTotal As Long)
   Dim strData As String
   tcpClient.GetData strData
   txtOutput.Text = strData
End Sub
服务端
Private Sub Form_Load()
'将 LocalPort 属性设置为一个整数。
'然后调用 Listen 方法。
tcpServer.LocalPort = 1001
tcpServer.Listen
frmClient.Show '显示客户端的窗体。


End Sub

Private Sub tcpServer_ConnectionRequest _
(ByVal requestID As Long)
'检查控件的 State 属性是否为关闭的。
'如果不是,
'在接受新的连接之前先关闭此连接。
If tcpServer.State <> sckClosed Then _
tcpServer.Close
'接受具有 requestID 参数的
'连接。
tcpServer.Accept requestID
End Sub

Private Sub txtSendData_Change()
'名为 txtSendData 的 TextBox 控件中
'包含了要发送的数据。当用户往文本框中
'键入数据时,使用 SendData 方法
'发送输入的字符串。
tcpServer.SendData txtSendData.Text
End Sub

Private Sub tcpServer_DataArrival _
(ByVal bytesTotal As Long)
'为进入的数据声明一个变量。
'调用 GetData 方法,并将数据赋予名为 txtOutput
'的 TextBox 的 Text 属性。
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub
可是为什么我在服务端的txtSendData中输入时,客户端中的txtOutput
会有显示,可是在客户端中的txtSendData输入时,服务端没有显示?
还有啊,就是在服务端中txtOutput.Text = strData
这句代码为什么是把strData传给客户端中的txtOutput,为什么不是服务端中的txtOutput?
小弟菜鸟呵,大神们不要嫌烦啊

[解决办法]


.
.
Private Sub cmdConnect_Click()
  '调用 Connect 方法,初始化连接。
  tcpClient.Connect
End Sub

Private Sub txtSendData_Change()
  tcpClient.SendData txtSend.Text '这个文本框应该改名为txtSendData
End Sub
.
.


tcpServer.GetData strData
txtOutput.Text = strData

服务端中txtOutput.Text = strData是把客户端的数据赋值给服务器器的输出文本框,
因为这里strData的数据来源于客户端发来的数据。

热点排行