VB.NET控件数组使用经验详细分析
VB.NET的功能非常强大，可以实现代码的托管，以及强化代码架构，为程序员带来一个安全性较强的开发环境。我们在这里首先创建一个Button类型的VB.NET控件数组，来解释一下相关知识点。#t#
创新互联从2013年创立，是专业互联网技术服务公司，拥有项目成都做网站、成都网站制作网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元越秀做网站,已为上家服务,为越秀各地企业和个人服务,联系电话:028-86922220
1、创建“Windows应用程序”类型的工程，添加名为ButtonArray的类，并使该类继承 System.Collection.CollectionBase 类。System.Collections.CollectionBase类是.NET框架类库中为集合操作提供抽象的基类，通过对它的继承可以为我们的ButtonArray类具备集合增加、删除、索引的功能。
2、为ButtonArray类添加ParentForm属性，即控件组所在窗体，创建初始化函数（构造函数）；
3、为控件数组类增加AddItem方法，该方法在控件数组类中添加成员；
4、为控件数组类增加RemoveItem方法，该方法在控件数组中删除一个成员。
VB.NET控件数组创建的示例代码：
- 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 Integer) As 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 Object,
ByVal e As System.EventArgs)- '在这里编写控件数组对点击事件的响应
- '例如：
- MsgBox("点击：" & sender.GetType().
ToString & CType(CType(sender,
Button).Tag, String))- End Sub
- End Class
VB.NET控件数组的创建方法就为大家介绍到这里。
分享标题：VB.NET控件数组使用经验详细分析
文章分享：http://www.shufengxianlan.com/qtweb/news40/226690.html
网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等
声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联