通过语句创建winsock对象，能否执行该对象的DataArrival事件吗？大侠帮助再线等......

Question

我用语句创建的winsock对象数组，怎样处发它的DataArrival事件呀，高手帮帮忙喽

Answer 1

语句创建的winsock对象数组?
你的创建代码！

Answer 2

就是 Dim winsock(10) As winsock  这条语句呀

Answer 3

Dim withevents winsock(10) As winsock

Answer 4

1、这是对象变量数组，不是控件数组；
2、对象变量不能与类重名，这会引起混乱的；
3、对象变量数组不能withevents 声明；对象变量只是一个对对象实例的引用，并非就是真实的对象实例。在没有引用对象前，它什么也没有，只是Nothing!这样吧，
1、你先在窗体中放一个winsock控件，比如取名：Ws，将其Index属性设为0
2、在Form_load事件中，加入代码：
for i=1 to 10
load ws(i)
next
这样就可加载一个拥有11个元素的控件数组
3、你可处理事件
Private Sub Ws_DataArrival(Index As Integer, ByVal bytesTotal As Long)
其中可用Index参数分清是哪个控件的事件。

Answer 5

引用：：：回复人： happy_sea(开心海) ( ) 信誉：100  2005-04-19 18:19:00  得分: 0  
 
 
   Dim withevents winsock(10) As winsock
  
这位 happy_sea(开心海) 调试过么？VB不支持这样可触发事件的对象数组的。我试过，不行的！楼主参看 homezj(小吉)的回复。是正确的。

Answer 6

Private Sub Ws_DataArrival(Index As Integer, ByVal bytesTotal As Long)