[求助]关于Addressof及委托的问题
Private Sub GetData()
'开始异步接受
client.BeginReceive(recv, 0, 100, SocketFlags.None, AddressOf Respond, client)‘不是很懂addressof的用法
End Sub
Private Sub Respond(ByVal ar As IAsyncResult)
'结束异步接收
client.EndReceive(ar)
Dim str As String = System.Text.Encoding.ASCII.GetString(recv)’有什么作用啊
str = str.ToUpper
send = System.Text.Encoding.ASCII.GetBytes(str.ToCharArray)
'开始异步发送请求结果
client.BeginSend(send, 0, send.Length, SocketFlags.None, AddressOf sendcomplete, client)
End Sub
