VB.NET有很多值得學(xué)習(xí)的地方，這里我們主要介紹VB.NET ButtonArray類(lèi)，包括介紹在VB.NET中使用控件數(shù)組等方面。

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

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

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

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

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

示例代碼：

 
 
 

  
  
  
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("點(diǎn)擊：" & sender.GetType().ToString & CType(CType(sender, Button).Tag, String))  
  
  
  
End Sub  
  
  
  
End Class 
 
 
 

標(biāo)題名稱(chēng)：淺談VB.NETButtonArray類(lèi)
文章出自：http://uogjgqi.cn/article/dphjpci.html