如何快速掌握VB.NET控件数组

本人很喜欢VB.NET控件数组，在工作中也很喜欢总结关于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

网页标题：如何快速掌握VB.NET控件数组
链接URL：http://www.csdahua.cn/qtweb/news3/269053.html

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

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

成都快上网为您推荐相关内容