vb.net中怎样实现像vb中控件数组的功能

[yuqi508]

vb.net中怎样实现像vb中控件数组的功能


如下面的代码－－－wskServer是WinSock控件数组
在vb.net 中这样实现下面的功能

Private Sub wskServer_Close(Index As Integer)
'处理客户端的断开连接请求
On Error Resume Next
'向数据库中写入客户的状态信息
If wskServer(Index).Tag <> "" Then
Me.adoUsers.Recordset.MoveFirst
Me.adoUsers.Recordset.Find "UserID=" & wskServer(Index).Tag
Me.adoUsers.Recordset.Fields("Status").Value = 0
End If
'-------------------------------------------------------------------
'wskServer控件数组中删除关闭的Winsock控件
Unload wskServer(Index)
'-------------------------------------------------------------------
End Sub

Private Sub wskServer_ConnectionRequest(Index As Integer, _
ByVal requestID As Long)
'处理客户端的连接请求
On Error Resume Next
'当有客户端连接到服务器时，首先将连接到服务器的客户端的数目加1
LinkCount = LinkCount + 1
'通过Load方法为wskServer控件数组添加一个新的Winsock控件元素
Load wskServer(LinkCount)
wskServer(LinkCount).LocalPort = 0
'设置这个新控件元素专门对应这个客户端的连接
wskServer(LinkCount).Accept requestID
End Sub

[pupo]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click

End Sub

用Handles

[hamadou]

控件数组的建立：dim a(2) as button
对于它的事件处理，可以象楼上的静态方法或者使用addhandler的事件委托！

[zifer66]

建好数组.
txtDay = New ArrayList
添加.
txtDay.Add(txtDay1)
txtDay.Add(txtDay2)
事件调用:
Private Sub CountTheTotal(ByVal sender As Object _
, ByVal LastValue As String _
) Handles _
txtDay1.AfterUpdate _
, txtDay2.AfterUpdate _
, txtDay3.AfterUpdate _
..
..
..
END SUB

[yuqi508]

Public Servers As New ArrayList
Servers.Add(Me.AxWinsock1)
Private Sub wskServer_ConnectionRequest(Index As Integer, _
ByVal requestID As Long)handler servers(0).ConnectionRequest,Servers(1).ConnectionRequest,Servers(2).ConnectionRequest等等
我要加载的WinSock 控件并不知道是多少啊

[yuqi508]

我要问的是怎样实现数组控件的事件