VB.NET中怎么创建一个控件数组-成都创新互联网站建设

关于创新互联

多方位宣传企业产品与服务 突出企业形象

公司简介 公司的服务 荣誉资质 新闻动态 联系我们

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中怎么创建一个控件数组
URL链接:http://kswsj.cn/article/gdjcdj.html

其他资讯