浅谈VB.NETButtonArray类

VB.NET有很多值得学习的地方，这里我们主要介绍VB.NET ButtonArray类，包括介绍在VB.NET中使用控件数组等方面。

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

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

2、为VB.NET 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 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.NETButtonArray类
链接URL：http://www.shufengxianlan.com/qtweb/news38/315438.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联