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

** 在 ** ** VB.Net ** ** 中创建使用控件数组 ** ** **

** 一、 ** ** 关于“控件数组” ** ** **

“控件数组”是 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 似乎复杂了一些,但同时也使开发人员在编程时有了更大的灵活度。

Published At
Categories with Web编程
Tagged with
comments powered by Disqus