在中创建使用控件数组计划

在中创建使用控件数组首先创建一个Button类型控件数组：

1、创建“Windows应用程序”类型的工程，添加名为ButtonArray的类，并使该类继承 llectionBase 类。llectionBase类是.NET框架类库中为集合操作提供抽象的基类，通过对它的继承可以为我们的ButtonArray类具备集合增加、删除、索引的功能。

2、为ButtonArray类添加ParentForm属性，即控件组所在窗体，创建初始化函数（构造函数）；

3、为控件数组类增加AddItem方法，该方法在控件数组类中添加成员；

4、为控件数组类增加RemoveItem方法，该方法在控件数组中删除一个成员。

示例代码：

Public Class ButtonArray

Inherits llectionBase

Private ReadOnly ParentForm As rm

Public Sub New(ByVal pForm As rm)

ParentForm = pForm

End Sub

Default Public ReadOnly Property Item(ByVal index As Integer) As tton

Get

Return em(index) @# ButtonArray的List 属性从CollectionBase 继承

End Get

End Property

Public Sub AddItem()

Dim btnItem As New tton

d(btnItem)

d(btnItem) @#向窗体中增加控件

g = unt @#Count属性从CollectionBase 继承

p = unt * 30

ft = 200

xt = \"Button\" String

AddHandler ick, AddressOf btnItem_Click @#绑定事件处理程序

End Sub

Public Sub AddItem(ByVal btnItem As tton)

d(btnItem)

AddHandler ick, AddressOf btnItem_Click @#绑定事件处理程序

End Sub

Public Sub RemoveItem()

If unt 0 Then

move(Me(unt - 1))

moveAt(unt - 1)

End If

End Sub

Public Sub btnItem_Click(ByVal sender As Object, ByVal e As entArgs)

@#在这里编写控件数组对点击事件的响应

@#例如：

MsgBox(\"点击：\" tType().ToString CType(CType(sender, Button).Tag, String))

End Sub

End Class

使用创建的控件数组

在Form1中放置两个按钮Button1、Button2，分别测试控件数组的增添、删除。

双击Form添加代码：

Public Class Form1

Inherits rm

……Windows窗体设计器生成的代码……

Dim Buttons As New ButtonArray(Me)

Private Sub Button1_Click(ByVal sender As ject, ByVal e As entArgs) Handles ick

dItem()

End Sub

Private Sub Button2_Click(ByVal sender As ject, ByVal e As entArgs) Handles ick

moveItem()

End Sub

End Class

其他的控件数组也可以用类似的方式来实现

例如 Label控件数组

代码如下：

Public Class LabelArray

Inherits llectionBase

Private ReadOnly ParentForm As rm

Public Sub New(ByVal pForm As rm)

ParentForm = pForm

End Sub

Default Public ReadOnly Property Item(ByVal index As Integer) As bel

Get

Return em(index) @# ButtonArray的List 属性从CollectionBase 继承

End Get

End Property

Public Sub AddItem(ByVal btnItem As bel)

d(btnItem)

AddHandler ick, AddressOf btnItem_Click @#绑定事件处理程序

End Sub

Public Sub btnItem_Click(ByVal sender As Object, ByVal e As entArgs)

@#在这里编写控件数组对点击事件的响应

所以才促使轻博客往这个形式去发展？ @#例如：

MsgBox(\"点击：\" tType().ToString CType(CType(sender, Label).Tag, String))

End Sub

End Class