知识大全在VB.Net中创建使用控件数组

Posted 2022-07-16 知

篇首语：有志者事竟成，破釜沉舟，百二秦关终属楚。。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全在VB.Net中创建使用控件数组相关的知识，希望对你有一定的参考价值。

在VB.Net中创建使用控件数组 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

一首先创建一个Button类型控件数组

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

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

　　．为控件数组类增加AddItem方法该方法在控件数组类中添加成员

　　．为控件数组类增加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 *

btnItem Left =

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 SubPublic Sub RemoveItem()

If Me Count > Then

ParentForm Controls Remove(Me(Me Count ))

Me List RemoveAt(Me Count )

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

二使用创建的控件数组

　　在Form 中放置两个按钮Button Button 分别测试控件数组的增添删除

双击Form添加代码

Public Class Form Inherits System Windows Forms Form

Windows窗体设计器生成的代码

Dim Buttons As New ButtonArray(Me)

Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click

Buttons AddItem()

End Sub

Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click

Buttons RemoveItem()

End Sub

End Class

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

LabelArray vb代码如下 Public Class LabelArrayInherits 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 Label

Get

Return Me List Item(index) ButtonArray的List 属性从CollectionBase 继承

End Get

End Property

Public Sub AddItem(ByVal btnItem As System Windows Forms Label)

Me List Add(btnItem)

AddHandler btnItem Click AddressOf btnItem_Click 绑定事件处理程序

End Sub

Public Sub btnItem_Click(ByVal sender As Object ByVal e As System EventArgs)

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

例如

MsgBox( 点击 & sender GetType() ToString & CType(CType(sender Label) Tag String))

End SubEnd Class

三使用创建的Label控件　　在Form 中放置两个按钮Label Label

双击Form添加代码

Public Class Form

Inherits System Windows Forms Form

#Region Windows 窗体设计器生成的代码

Public Sub New()MyBase New()

该调用是 Windows 窗体设计器所必需的 InitializeComponent()

在 InitializeComponent() 调用之后添加任何初始化用来绑定labelBindArray()

End SubWindows窗体设计器生成的其他代码

#End RegionDim Labels As New LabelArray(Me)Public Sub BindArray()Me Label Tag = Me Label Tag = Labels AddItem(Me Label )Labels AddItem(Me Label )End SubEnd Class

cha138/Article/program/net/201311/15141

知识大全 在VB.Net中创建使用控件数组

知识大全在VB.Net中创建使用控件数组