网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

VB.NET中怎么创建一个控件数组

VB.NET中怎么创建一个控件数组,很多新手对此不是很清楚,为了帮助大家解决这个难题,下面小编将为大家详细讲解,有这方面需求的人可以来学习下,希望你能有所收获。

创新互联专注为客户提供全方位的互联网综合服务,包含不限于网站制作、网站设计、茂名网络推广、微信小程序开发、茂名网络营销、茂名企业策划、茂名品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联为所有大学生创业者提供茂名建站搭建服务,24小时服务热线:13518219792,官方网址:www.cdcxhl.com

在VB.NET创建控件数组

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

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

2、为ButtonArray类添加ParentForm属性,即控件组所在窗体,创建初始化函数(构造函数);

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

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

VB.NET创建控件数组代码示例:

  1. Public Class ButtonArray  

  2. Inherits System.Collections.CollectionBase  

  3. Private ReadOnly ParentForm As System.Windows.Forms.Form  

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

  5. ParentForm = pForm 

  6. End Sub  

  7.  

  8. Default Public ReadOnly Property Item(ByVal index As Integer)
    As System.Windows.Forms.Button  

  9. Get  

  10. Return Me.List.Item(index) @# ButtonArray的List 属性从CollectionBase 继承  

  11. End Get  

  12. End Property  

  13. Public Sub AddItem()  

  14. Dim btnItem As New System.Windows.Forms.Button  

  15. Me.List.Add(btnItem)  

  16. ParentForm.Controls.Add(btnItem)@#向窗体中增加控件  

  17. btnItem.Tag = Me.Count@#Count属性从CollectionBase 继承  

  18. btnItem.Top = Me.Count * 30  

  19. btnItem.Left = 200 

  20. btnItem.Text = "Button" & Me.Count.ToString  

  21. AddHandler btnItem.Click, AddressOf btnItem_Click @#绑定事件处理程序  

  22. End Sub  

  23.  

  24. Public Sub AddItem(ByVal btnItem As System.Windows.Forms.Button)  

  25. Me.List.Add(btnItem)  

  26. AddHandler btnItem.Click, AddressOf btnItem_Click @#绑定事件处理程序  

  27. End Sub  

  28.  

  29. Public Sub RemoveItem()  

  30. If Me.Count > 0 Then  

  31. ParentForm.Controls.Remove(Me(Me.Count - 1))  

  32. Me.List.RemoveAt(Me.Count - 1)  

  33. End If  

  34. End Sub  

  35.  

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

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

  38. @#例如:  

  39. MsgBox("点击:" & sender.GetType().ToString & CType(CType(sender, Button).Tag, String))  

  40. End Sub  

  41. End Class 

看完上述内容是否对您有帮助呢?如果还想对相关知识有进一步的了解或阅读更多相关文章,请关注创新互联行业资讯频道,感谢您对创新互联的支持。


本文题目:VB.NET中怎么创建一个控件数组
浏览地址:http://bjjierui.cn/article/gdjcdj.html

其他资讯