不熟悉VB，如何动态创建Winsock,并放到一个链表中去
不熟悉VB，如何动态创建Winsock,并放到一个链表中去,以响应多个客户并发连接 问题点数：50、回复次数：6Top
1 楼Wit253（阿狼）回复于 2003-07-04 17:03:48 得分 10
用控件组Top
2 楼CityBird（鹰扬九洲——只有想不到的，没有做不到的）回复于 2003-07-04 17:45:39 得分 0
VB能做链表吗？
继续学习！！Top
3 楼asklxf（xuefeng）回复于 2003-07-04 18:07:02 得分 20
先添加一个winsock控件到窗体，设置index属性0
private sub AddWinSock()
static nCount as long
nCount=nCount+1
Load WinSock1(nCount) '假定控件名是winsock1
'要把控件加到链表，在vb中可用集合代替：
winsocks.Add Winsock1(nCount) '在窗体通用代码处定义 Dim winsocks As New Collection
end sub
Top
4 楼riddler（痛恨电脑）回复于 2003-07-04 20:47:19 得分 0
TksTop
5 楼tonylk（=www.tonixsoft.com=）回复于 2003-07-04 21:20:03 得分 20
dim clt as new collection 'the list
dim socket as winsock ' the point to winsock
for i=0 to 10
set socket = new winwock
socket.dosth()
clt.add(socket) //add the winsocket to list
nextTop
6 楼lhfcsdn（http://shop33840643.taobao.com/）回复于 2003-07-05 15:26:43 得分 0
upTop
