浅谈VB.NET ButtonArray类
创始人
2024-06-09 04:31:39
0

VB.NET有很多值得学习的地方,这里我们主要介绍VB.NET ButtonArray类,包括介绍在VB.NET中使用控件数组等方面。

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

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

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

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

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

示例代码:

  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. MsgBox("点击:" & sender.GetType().ToString & CType(CType(sender, Button).Tag, String))  
  39. End Sub  
  40. End Class 

【编辑推荐】

  1. 描述VB.NET EIF体系
  2. 简单讲述VB.NET多重继承
  3. 浅谈VB.NET语言与.NET开发语言关系
  4. 讲解VB.NET语言学习经验
  5. 浅析VB.NET语言到底带来了什么

相关内容

热门资讯

如何允许远程连接到MySQL数... [[277004]]【51CTO.com快译】默认情况下,MySQL服务器仅侦听来自localhos...
如何利用交换机和端口设置来管理... 在网络管理中,总是有些人让管理员头疼。下面我们就将介绍一下一个网管员利用交换机以及端口设置等来进行D...
施耐德电气数据中心整体解决方案... 近日,全球能效管理专家施耐德电气正式启动大型体验活动“能效中国行——2012卡车巡展”,作为该活动的...
Windows恶意软件20年“... 在Windows的早期年代,病毒游走于系统之间,偶尔删除文件(但被删除的文件几乎都是可恢复的),并弹...
20个非常棒的扁平设计免费资源 Apple设备的平面图标PSD免费平板UI 平板UI套件24平图标Freen平板UI套件PSD径向平...
德国电信门户网站可实时显示全球... 德国电信周三推出一个门户网站,直观地实时提供其安装在全球各地的传感器网络检测到的网络攻击状况。该网站...
着眼MAC地址,解救无法享受D... 在安装了DHCP服务器的局域网环境中,每一台工作站在上网之前,都要先从DHCP服务器那里享受到地址动...
为啥国人偏爱 Mybatis,... 关于 SQL 和 ORM 的争论,永远都不会终止,我也一直在思考这个问题。昨天又跟群里的小伙伴进行...