winsock.connect与winsock.senddata为什么不能同时用?大侠帮忙
Private Sub login_Click()
tcpclient.Connect
tcpclient.SendData sno.Text & "/ " & sname.Text & "/ "&tcpclient.LocalHostName & "/ " & tcpclient.LocalIP
login.Enabled = False
End Sub
tcpclient.Connect和tcpclient.SendData为什么不能同时用啊?
只能分开
Private Sub Form_Load()
tcpclient.RemoteHost = "127.0.0.1 "
tcpclient.RemotePort = 33333
tcpclient.Connect
End Sub
Private Sub login_Click()
tcpclient.SendData sno.Text & "/ " & sname.Text & "/ "&tcpclient.LocalHostName & "/ " & tcpclient.LocalIP
login.Enabled = False
End Sub
初学vb网络编程,大侠帮帮忙
[解决办法]
tcpclient.Connect
只是一个连接方法 他需要时间执行的 而且是异步的
可以采用客户端的一个事件 Connect 事件
或者死循环 判断状态=6