小编给大家分享一下VB.NET控件数组怎么用,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!
VB.NET的功能非常强大,可以实现代码的托管,以及强化代码架构,为程序员带来一个安全性较强的开发环境。我们在这里首先创建一个Button类型的VB.NET控件数组,来解释一下相关知识点。
创建“Windows应用程序”类型的工程,添加名为ButtonArray的类,并使该类继承 System.Collection.CollectionBase 类。System.Collections.CollectionBase类是.NET框架类库中为集合操作提供抽象的基类,通过对它的继承可以为我们的ButtonArray类具备集合增加、删除、索引的功能。
为ButtonArray类添加ParentForm属性,即控件组所在窗体,创建初始化函数(构造函数);
为控件数组类增加AddItem方法,该方法在控件数组类中添加成员;
为控件数组类增加RemoveItem方法,该方法在控件数组中删除一个成员。
VB.NET控件数组创建的示例代码:
Public Class ButtonArray
Inherits System.Collections.
CollectionBasePrivate ReadOnly ParentForm
As System.Windows.Forms.FormPublic 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控件数组怎么用”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注编程网行业资讯频道!