在VB.Net中创建使用控件数组 (转)

在VB.Net中创建使用控件数组 (转)[@more@]

在vb.NET中创建使用控件数组XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office:office" />

 

一、  关于“控件数组”

“控件数组”是vb6中一项简单而实用的技术，通过对控件的简单拷贝、复制，开发者可以指定一组控件，这些控件具有相同的类型和名称，共享事件集。使用控件数组可以：1、允许多个控件共享同一个事件句柄；2、提供了运行期间增加一个控件的机制；3、提供了一种方便的组合控件的方法。

在VB.NET中，控件数组的创建不再通过VB6中设计时对控件的简单拷贝、复制而实现。vb .NET 的事件模型允许任何事件处理程序处理来自多个控件的事件，这使我们能够编程创建属于不同类型但共享相同事件的控件组。

 

二、  在VB.NET中编程创建控件数组

下面我们创建一个Button类型控件数组：

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

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

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

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

 

示例代码：

Public Class ButtonArray

  Inherits System.Collections.CollectionBase

  Private ReadOnly ParentFoRM As System.Windows.Forms.Form

 

  Public Sub New(ByVal pForm As System.Windows.Forms.Form)

  ParentForm = pForm

  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 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

 

 

三、  使用创建的控件数组

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

双击Form添加代码：

Public Class Form1

  Inherits System.Windows.Forms.Form

 

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

  Dim Buttons As New ButtonArray(Me)

 

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

  Buttons.AddItem()

  End Sub

 

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

  Buttons.RemoveItem()

  End Sub

End Class

 

可见，与VB6中实现控件数组的方法相比，VB.NET似乎复杂了一些，但同时也使开发人员在编程时有了更大的灵活度。

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752019/viewspace-956065/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752019/viewspace-956065/