如何定义？

Question

你试试这种方式：
先在窗体中放入一个winsock控件，设其index=0；设定你要的事件winsock_...(index as integer,...)
在form_load事件中:
for i=1 to num-1
  load winsock(i)
next i
那么所有的winsock(n)控件都具有你要的事件，用index区分。
样例：
Private Sub Command1_Click(Index As Integer)
MsgBox Index
End SubPrivate Sub Form_Load()
Dim i As Integer
For i = 1 To 4
Load Command1(i)
Command1(i).Top = Command1(i - 1).Top + Command1(i - 1).Height + 10
Command1(i).Visible = True
Next i
End Sub

Answer 1

错误！动态生成控件数组应该是这样！
首先，要现在form中拖入一个Winsock控件,名字为winsock1,并且把index属性设置为0之后在form_load事件中加入
dim i as integer
for i= 1 to 5
    load winsock1(i)
next
就动态生成了5个winsock控件

Answer 2

那我可不可以这样
dim withevents WS as winsock
set WS=new winsockws.index=0dim i as integer
for i=1 to 5
load WS(i)
next