listener=new tcplistener(system.net.ipaddress.any,port)
dim client as new userconnection(listener.accepttcpclient)
上面两个语句中userconnection是个类,dim client as new userconnection我明白是什么意思,可是加了后面(listener.accepttcpclient)就不知道是什么意思了,请高手们指教,小弟感激.
...全文
765打赏收藏
一个菜鸟的问题.
listener=new tcplistener(system.net.ipaddress.any,port) dim client as new userconnection(listener.accepttcpclient) 上面两个语句中userconnection是个类,dim client as new userconnection我明白是什么意思,可是加了后面(listener.accepttcpclient)就不知道是什么意思了,请高手们指教,小弟感激.
listener=new tcplistener(system.net.ipaddress.any,port)
dim client as new userconnection(listener.accepttcpclient)
==========================================================
其实这是以下语句的简写:
Dim client As UserConnection
client = New UserConnection( listener.AcceptTcpClient )
如:
Class Book
Friend Sub New(ByVal Ident as Integer, Author as String, Publisher as _
String)
'---------------
End Sub
End Class
Class Library
Public Function Add(Ident, Author, Publisher) As Book
Dim b As New Book(Ident, Author, Publisher)
‘-------
Return b
End Function
End Class