Question

vb编译错误必选参数什意思什么意思

Private Sub Form_Load()
' Set the LocalPort property to an integer.
' Then invoke the Listen method.
tcpServer.LocalPort = 1001
tcpServer.Listen
frmClient.Show ' Show the client form.
End Sub
Private Sub tcpServer_ConnectionRequest _
(ByVal requestID As Long)
' Check if the control's State is closed. If not,
' close the connection before accepting the new
' connection.
If tcpServer.State <> sckClosed Then _
tcpServer.Close
' Accept the request with the requestID
' parameter.
tcpServer.Accept = requestID '<<<编译错误然后调试就显示这里是蓝色的 不知道这句怎么错了
End Sub
Private Sub txtSendData_Change()
' The TextBox control named txtSendData
' contains the data to be sent. Whenever the user
' types into the textbox, the string is sent
' using the SendData method.
tcpServer.SendData = txtSendData.Text
End Sub
Private Sub tcpServer_DataArrival _
(ByVal bytesTotal As Long)
' Declare a variable for the incoming data.
' Invoke the GetData method and set the Text
' property of a TextBox named txtOutput to
' the data.
Dim strData As String
tcpServer.GetData = strData
txtOutput.Text = strData
End Sub
顺便求一下修改后的程序，这个是tcpserver端的编程。

Answer 1

tcpServer.Accept = requestID

改为
tcpServer.Accept requestID

Accept是方法而不是属性！属性才需要用等号赋值，方法则后面跟随的是参数

后面的SendData和GetData也要同样处理

Answer 2

tcpServer.Accept --这里 accept 是一个方法 需要一个参数
tcpServer.Accept requestID ’应该这么写,不是等号
or
call tcpServer.Accept (requestID )

追问

请问编写一个简单的TCP客户和服务端实现简单的通讯要怎么做？老师给的实验指导书里的程序就出现了刚刚我提问的那种错误，能教我一下吗？

追答

1、这个错误指示小错误，语法上的，没有太大问题
2、怎么实现的话，你不是有指导书吗，里面应该有说--就是利用winsock控件去做，然建立一个客户端，和服务端，然后配置好 ip 、port、等属性，具体的步骤，指导书上应该有

追问

指导书上的只给了Client和Server端窗体需要什么控件和代码，但是编译出来跟室友尝试连接运行根本没反应的。

追答

这个，做这个测试的话，建议最好先用一台电脑去做测试，就是客户端、与服务端在同一台电脑，这样可以排除掉因为本身网络的问题而导致测试不了

Answer 3

估计是函数或是方法没有输入参数。