VB.NET中怎么創(chuàng)建一個(gè)控件數(shù)組

VB.NET中怎么創(chuàng)建一個(gè)控件數(shù)組，很多新手對(duì)此不是很清楚，為了幫助大家解決這個(gè)難題，下面小編將為大家詳細(xì)講解，有這方面需求的人可以來學(xué)習(xí)下，希望你能有所收獲。

在VB.NET創(chuàng)建控件數(shù)組

首先創(chuàng)建一個(gè)Button類型控件數(shù)組：

1、創(chuàng)建“Windows應(yīng)用程序”類型的工程，添加名為ButtonArray的類，并使該類繼承 System.Collection.CollectionBase 類。System.Collections.CollectionBase類是.NET框架類庫(kù)中為集合操作提供抽象的基類，通過對(duì)它的繼承可以為我們的 ButtonArray類具備集合增加、刪除、索引的功能。

2、為ButtonArray類添加ParentForm屬性，即控件組所在窗體，創(chuàng)建初始化函數(shù)（構(gòu)造函數(shù)）；

3、為控件數(shù)組類增加AddItem方法，該方法在控件數(shù)組類中添加成員；

4、為控件數(shù)組類增加RemoveItem方法，該方法在控件數(shù)組中刪除一個(gè)成員。

VB.NET創(chuàng)建控件數(shù)組代碼示例：

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)  
@#在這里編寫控件數(shù)組對(duì)點(diǎn)擊事件的響應(yīng)  
@#例如：  
MsgBox("點(diǎn)擊：" & sender.GetType().ToString & CType(CType(sender, Button).Tag, String))  
End Sub  
End Class 

看完上述內(nèi)容是否對(duì)您有幫助呢？如果還想對(duì)相關(guān)知識(shí)有進(jìn)一步的了解或閱讀更多相關(guān)文章，請(qǐng)關(guān)注億速云行業(yè)資訊頻道，感謝您對(duì)億速云的支持。