温馨提示×

温馨提示×

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

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

VB.NET控件数组怎么用

发布时间:2021-12-02 14:01:50 阅读:495 作者:小新 栏目:编程语言
开发者测试专用服务器限时活动,0元免费领,库存有限,领完即止! 点击查看>>

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

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

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 

Default Public ReadOnly Property Item(ByVal index As IntegerAs System.Windows.Forms.Button  Get  Return Me.List.Item(index) ' ButtonArray的List 属性从CollectionBase 继承  End Get  End Property 
Public Sub AddItem()  Dim btnItem As New System.Windows.Forms.Button  Me.List.Add(btnItem)  ParentForm.Controls.Add(btnItem) '向窗体中增加控件  btnItem.Tag = Me.Count 'Count属性从CollectionBase 继承  btnItem.Top = Me.Count * 30  btnItem.Left = 200 btnItem.Text = "Button" & Me.Count.ToString  AddHandler btnItem.Click, AddressOf btnItem_Click '绑定事件处理程序  End Sub 
Public Sub AddItem(ByVal btnItem As System.Windows.Forms.Button)  Me.List.Add(btnItem)  AddHandler btnItem.Click, AddressOf btnItem_Click '绑定事件处理程序  End Sub  Public Sub RemoveItem()  If Me.Count > 0 Then  ParentForm.Controls.Remove(Me(Me.Count - 1))  Me.List.RemoveAt(Me.Count - 1)  End If  End Sub 
Public Sub btnItem_Click(ByVal sender As ObjectByVal e As System.EventArgs)  '在这里编写控件数组对点击事件的响应  '例如:  MsgBox("点击:" & sender.GetType().ToString & CType(CType(sender, Button).Tag, String))  End Sub  End Class 

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

亿速云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>

向AI问一下细节

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

AI

开发者交流群×