那个可以帮忙看下关于winsock。getdata的问题 困扰好几天了
Sub send(ByVal mydata As String) '发送信息
Form1.Winsock1.SendData(mydata)
End Sub
Sub GetMydata(ByVal size As Object) '接受信息
'返回接收到的信息
Form1.Winsock1.GetData(mydata, VariantType.String)
‘取出判断码
Select Case Left(mydata, 1)
Case 1 '聊天的信息
'加上日期,时间,对方名字,聊天内容,放入Text1.Text中
Form1.Text1.Text = Now & " " & Form1.label1(3).Text & ":" & Chr(13) & Chr(10) & Form1.Text1.Text
《 Form1.Winsock1.GetData(mydata, VariantType.String)》
上面这句提示 没有可访问的“GetData”接受此数目的参数,因此重载决策失败 请问下怎么解决