VB.NET控件数组使用经验详细分析

VB.NET的功能非常强大，可以实现代码的托管，以及强化代码架构，为程序员带来一个安全性较强的开发环境。我们在这里首先创建一个Button类型的VB.NET控件数组，来解释一下相关知识点。#t#

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

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

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

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

VB.NET控件数组创建的示例代码：

1. Public Class ButtonArray  
2. Inherits System.Collections.
   CollectionBase  
3. Private ReadOnly ParentForm 
   As System.Windows.Forms.Form  
4. Public Sub New(ByVal pForm 
   As System.Windows.Forms.Form)  
5. ParentForm = pForm 
6. End Sub 

Default Public ReadOnly Property Item
(ByVal index As Integer) As System.
Windows.Forms.Button  
Get  
Return Me.List.Item(index) 
' ButtonArray的List 属性从
CollectionBase 继承  
End Get  
End Property 

Public Sub AddItem()  
Dim btnItem As New System.
Windows.Forms.Button  
Me.List.Add(btnItem)  
ParentForm.Controls.Add
(btnItem) '向窗体中增加控件  
btnItem.Tag = Me.Count 
'Count属性从CollectionBase 继承  
btnItem.Top = Me.Count * 30  
btnItem.Left = 200 
btnItem.Text = "Button" 
& Me.Count.ToString  
AddHandler btnItem.Click, 
AddressOf btnItem_Click 
'绑定事件处理程序  
End Sub 

Public Sub AddItem(ByVal btnItem 
As System.Windows.Forms.Button)  
Me.List.Add(btnItem)  
AddHandler btnItem.Click, 
AddressOf btnItem_Click 
'绑定事件处理程序  
End Sub  
Public Sub RemoveItem()  
If Me.Count > 0 Then  
ParentForm.Controls.Remove
(Me(Me.Count - 1))  
Me.List.RemoveAt(Me.Count - 1)  
End If  
End Sub 

Public Sub btnItem_Click
(ByVal sender As Object, 
ByVal e As System.EventArgs)  
'在这里编写控件数组对点击事件的响应  
'例如：  
MsgBox("点击：" & sender.GetType().
ToString & CType(CType(sender, 
Button).Tag, String))  
End Sub  
End Class 

VB.NET控件数组的创建方法就为大家介绍到这里。