温馨提示×

温馨提示×

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

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

如何使用VB.NET控件数组

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

这篇文章主要介绍了如何使用VB.NET控件数组,具有一定借鉴价值,感兴趣的朋友可以参考下,希望大家阅读完这篇文章之后大有收获,下面让小编带着大家一起了解一下。

一、关于VB.NET控件数组

控件数组”是VB6中一项简单而实用的技术,通过对控件的简单拷贝、复制,开发者可以指定一组控件,这些控件具有相同的类型和名称,共享事件集。使用控件数组可以:
1、允许多个控件共享同一个事件句柄;
2、提供了运行期间增加一个控件的机制;
3、提供了一种方便的组合控件的方法。

VB.NET控件数组的创建不再通过VB6中设计时对控件的简单拷贝、复制而实现。VB .NET 的事件模型允许任何事件处理程序处理来自多个控件的事件,这使我们能够编程创建属于不同类型但共享相同事件的控件组。

二、创建VB.NET控件数组

下面我们创建一个Button类型控件数组:
1、创建“Windows应用程序”类型的工程,添加名为ButtonArray的类,并使该类继承 System.Collection.CollectionBase 类。System.Collections.CollectionBase类是.NET框架类库中为集合操作提供抽象的基类,通过对它的继承可以为我们的 ButtonArray类具备集合增加、删除、索引的功能。
2、为ButtonArray类添加ParentForm属性,即控件组所在窗体,创建初始化函数(构造函数);
3、为控件数组类增加AddItem方法,该方法在控件数组类中添加成员;
4、为控件数组类增加RemoveItem方法,该方法在控件数组中删除一个成员。

Public Class ButtonArray  Inherits System.Collections.CollectionBase  Private ReadOnly ParentForm As System.Windows.Forms.Form  Public Sub New(ByVal pForm As System.Windows.Forms.Form)  ParentForm = pForm 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 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 Object, ByVal 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

开发者交流群×