C语言学习网

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

发表于:2022-11-28 作者:安全数据网编辑
编辑最后更新 2022年11月28日,VB.NET中怎么创建一个控件数组,很多新手对此不是很清楚,为了帮助大家解决这个难题,下面小编将为大家详细讲解,有这方面需求的人可以来学习下,希望你能有所收获。在VB.NET创建控件数组首先创建一个B

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. Default Public ReadOnly Property Item(ByVal index As Integer)
    As System.Windows.Forms.Button

  8. Get

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

  10. End Get

  11. End Property

  12. Public Sub AddItem()

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

  14. Me.List.Add(btnItem)

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

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

  17. btnItem.Top = Me.Count * 30

  18. btnItem.Left = 200

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

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

  21. End Sub

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

  23. Me.List.Add(btnItem)

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

  25. End Sub

  26. Public Sub RemoveItem()

  27. If Me.Count > 0 Then

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

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

  30. End If

  31. End Sub

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

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

  34. @#例如:

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

  36. End Sub

  37. End Class

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

0