温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

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

发布时间:2021-07-28 15:39:40 来源:亿速云 阅读:418 作者:Leah 栏目:编程语言

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

在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 

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

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI