文章详情

短信预约-IT技能 免费直播动态提醒

请输入下面的图形验证码

提交验证

短信预约提醒成功

VB.NET控件数组怎么用

2023-06-17 17:58

关注

小编给大家分享一下VB.NET控件数组怎么用,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!

VB.NET的功能非常强大,可以实现代码的托管,以及强化代码架构,为程序员带来一个安全性较强的开发环境。我们在这里首先创建一个Button类型的VB.NET控件数组,来解释一下相关知识点。

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

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

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

为控件数组类增加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 

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

  2. Get  

  3. Return Me.List.Item(index) 
    ' ButtonArray的List 属性从
    CollectionBase 继承  

  4. End Get  

  5. End Property 

  1. Public Sub AddItem()  

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

  3. Me.List.Add(btnItem)  

  4. ParentForm.Controls.Add
    (btnItem) '向窗体中增加控件  

  5. btnItem.Tag = Me.Count 
    'Count属性从CollectionBase 继承  

  6. btnItem.Top = Me.Count * 30  

  7. btnItem.Left = 200 

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

  9. AddHandler btnItem.Click, 
    AddressOf btnItem_Click 
    '绑定事件处理程序  

  10. End Sub 

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

  2. Me.List.Add(btnItem)  

  3. AddHandler btnItem.Click, 
    AddressOf btnItem_Click 
    '绑定事件处理程序  

  4. End Sub  

  5. Public Sub RemoveItem()  

  6. If Me.Count > 0 Then  

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

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

  9. End If  

  10. End Sub 

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

  2. '在这里编写控件数组对点击事件的响应  

  3. '例如:  

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

  5. End Sub  

  6. End Class 

以上是“VB.NET控件数组怎么用”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注编程网行业资讯频道!

阅读原文内容投诉

免责声明:

① 本站未注明“稿件来源”的信息均来自网络整理。其文字、图片和音视频稿件的所属权归原作者所有。本站收集整理出于非商业性的教育和科研之目的,并不意味着本站赞同其观点或证实其内容的真实性。仅作为临时的测试数据,供内部测试之用。本站并未授权任何人以任何方式主动获取本站任何信息。

② 本站未注明“稿件来源”的临时测试数据将在测试完成后最终做删除处理。有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341

软考中级精品资料免费领

  • 历年真题答案解析
  • 备考技巧名师总结
  • 高频考点精准押题
  • 2024年上半年信息系统项目管理师第二批次真题及答案解析(完整版)

    难度     807人已做
    查看
  • 【考后总结】2024年5月26日信息系统项目管理师第2批次考情分析

    难度     351人已做
    查看
  • 【考后总结】2024年5月25日信息系统项目管理师第1批次考情分析

    难度     314人已做
    查看
  • 2024年上半年软考高项第一、二批次真题考点汇总(完整版)

    难度     433人已做
    查看
  • 2024年上半年系统架构设计师考试综合知识真题

    难度     221人已做
    查看

相关文章

发现更多好内容

猜你喜欢

AI推送时光机
位置:首页-资讯-后端开发
咦!没有更多了?去看看其它编程学习网 内容吧
首页课程
资料下载
问答资讯