VB.NET編程語言的出現，為開發人員帶來了非常大的好處。我們今天將會學到其中一個比較重要的知識點，VB.NET控件數組的相關知識。VB.NET控件數組是位于一個窗體上共享同一名稱的一組同種類型控件。普通控件僅使用名稱就可以識別，而引用控件數組中的成員則需要同時使用名稱和索引。開發人員在 Visual Basic 6.0 以及更早的版本中使用控件數組主要有以下三個理由： #t#

1. 在循環中訪問數組中控件的屬性。

2. 向窗體動態添加新控件。

3. 允許一個事件例程與多個控件連接 。

VB.NET控件數組的使用，極大的方便了開發人員。然而，剛剛從Visual Basic6.0（以下簡稱VB6.0）過渡到Visual Basic.Net（以下簡稱VB.NET）的初學者卻發現，在VB.NET中似乎不能使用控件數組了。筆者仔細查閱了VB.NET的MSDN文檔發現，在 VB.NET 中，確實不再支持控件數組。原因是，VB.NET對事件模型作了很大的改動，引入了另外一種數據類型――控件集合模型，使控件數組沒有存在的必要。就像 VB6.0 中的控件數組可以共享事件一樣，VB.NET 中的事件模型允許任何事件處理程序都可以處理來自多個控件的事件，這就允許創建屬于不同類型但共享相同事件的控件組。

所謂控件集合是指包含在一個容器中的所有控件的總和，能夠創建控件集合的容器有：Form、Panel、GropBox等。程序運行時，可以通過訪問容器的Control屬性來得到該容器中的所有控件。

下面將演示如何通過控件集合來使用控件數組：

一、 直接使用Form容器的控件集合來使用VB.NET控件數組：

建立一個VB.NET項目，在Form1中添加三個TextBox控件，名稱分別為：TextBox1、TextBox2、TextBox3，一個Button控件。
雙擊Button，輸入如下代碼：

Private Sub Button1_Click(ByVal sender 
As System.Object, ByVal e As System.
EventArgs) Handles Button1.Click  
‘下面的語句是通過數組元素的下標
來訪問Form中的每一個元素。  
Me.Controls.Item(0).Text = "集合中的第一個元素" 
Me.Controls.Item(1).Text = "集合中的第二個元素" 
Me.Controls.Item(2).Text = "集合中的第三個元素" 
Me.Controls.Item(3).Text = "集合中的第四個元素" 
End Sub 

運行項目后，點擊Button，看到的結果是：Form1中的所有控件（包括Button自己）的Text屬性都被修改了，同時還發現，最后加入的的控件變成了集合中的第一個元素（下標為0）。這個結果說明：

Form1中的所有控件已經自動構成了一個控件集合（控件數組），這個特點使得建立控件數組變得非常簡單。

在訪問這些控件時，除了可以通過控件名稱直接訪問外，還可以通過Contro.Item(n)屬性按下標訪問集合中的每一個控件；

集合中控件的類型可以不相同，這點和VB6.0完全不同；

集合中的下標順序是按照加入控件的順序倒排的；

VB.NET控件數組的特點讓人稍感不適的是，控件數組的下標是按加入順序的倒排續產生的，但程序員完全可以改變這個順序：在代碼編輯窗中點擊“#Region " Windows 窗體設計器生成的代碼”旁邊的“＋”號，代碼展開后，找到如下代碼：

Me.Controls.Add(Me.Button1)  
Me.Controls.Add(Me.TextBox3)  
Me.Controls.Add(Me.TextBox2)  
Me.Controls.Add(Me.TextBox1) 

這個代碼順序就是控件數組的下標順序，只要改變這個順序就可以改變控件數組中每個以元素的下標。

在Form中構成控件數組非常方便，但也有一個小問題：一般來說，Form中的控件往往有很多種，系統建立控件集合的時候將會把其中的所有控件放在同一個集合中，這樣一來，程序員在寫代碼的時候有可能將每一個控件的下標混淆，為了解決這個問題，可以用Panel容器來根據需要將某類控件建立成控件數組，也就避免了上述問題。

建立的方法非常簡單：只需要在Form中添加一個Panel控件，然后將需要建立VB.NET控件數組的控件加入其中即可，然后用：Panel.Control.Item(n)來訪問其中的每一個控件。

二、 用代碼建立控件集合。

建立一個VB.NET項目，在Form中添加三個TextBox和一個Button控件，在代碼編輯窗口中輸入如下代碼：

Dim TextboxArray As New ArrayList 
‘定義一個數組例表  
Private Sub BiuldTextBoxArray() 
‘過程用來將Form上的三個TextBox加入
到數組例表中  
TextboxArray.Add(TextBox1)  
TextboxArray.Add(TextBox2)  
TextboxArray.Add(TextBox3)  
End Sub  
‘讓Form在啟動的時候將三個TextBox
控件加入到數組例表中，構成控件數組。  
Private Sub Form1_Load(ByVal 
sender As System.Object, ByVal e
 As System.EventArgs) Handles 
MyBase.Load  
BiuldTextBoxArray()  
End Sub  
‘編寫Button點擊事件代碼，利用控件
數組訪問三個TextBox控件  
Private Sub Button1_Click(ByVal 
sender As System.Object, ByVal e 
As System.EventArgs) Handles Button1.Click  
TextboxArray(0).text = "文本框第一個元素" 
TextboxArray(1).text = "文本框第二個元素" 
TextboxArray(2).text = "文本框第三個元素" 
End Sub 

運行工程，點擊Button，發現三個TextBox都被修改了，效果和前面的方法一樣。

三、 在程序中動態添加VB.NET控件數組。

前面定義的控件數組都是在設計階段完成的，它要求，控件數組中的控件數量必須已知，也叫靜態控件數組；但很多時候要求，控件數組中的控件數量要用程序的某些運行情況來確定，這就要求，控件數組中的控件要能實現動態添加。

建立一個VB.NET工程，在Form上添加兩個Button，其中，Button1用來添加動態控件數組；Button2用來修改數組中每個控件的屬性。
在代碼編輯窗口中輸入如下代碼：

Dim List As New ArrayList 
‘定義一個例表對象，用來集合數組控件  
Private Sub Button1_Click(ByVal 
sender As System.Object, ByVal e 
As System.EventArgs) Handles 
Button1.Click  
Dim i As Integer  
For i = 0 To 4 ‘利用循環語句動態加
入控件數組。  
Dim FirstTextBox As New TextBox 
‘定義文本框對象  
Me.Controls.Add(FirstTextBox) 
‘將一個文本框控件加入到Form上  
List.Add(FirstTextBox) 
‘將文本框控件加入到例表集合中  
List.Item(i).top = i * List.Item(i).
height + 20 ‘修改新加入控件在Form上的位置  
List.Item(i).left = 100 
FirstTextBox.TabIndex = i 
‘修改新加入控件的TabIndex值  
List.Item(i).text = "TextBox" 
& i.ToString ‘修改默認文本。  
Next  
End Sub 

用循環來訪問動態VB.NET控件數組中的控件。

Private Sub Button2_Click(ByVal 
sender As System.Object, ByVal e
 As System.EventArgs) Handles 
Button2.Click  
Dim i As Integer  
For i = 0 To 4  
List.Item(i).text = "第 "
 & i.ToString & " 個元素"  
Next  
End Sub 

運行項目，先點擊Button1，Form上將出現5個文本框，然后再點擊Button2，修改這五個文本框的Text屬性。

從這個實例看出，VB.NET中動態加入控件數組與在VB6.0中實現動態數組有一個顯著的不同：VB6.0中必須要有一個靜態的“控件種子”，而在VB.NET中已經不需要了。

四、 VB.NET控件數組的事件響應。

控件數組的最重要的特色之一就是讓一組控件響應同一個事件，在事件例程中接收控件具體某控件的Index值來分別處理處理具體問題，這點已經在VB6.0中表現得淋漓盡致了，它在VB.NET中同樣可以實現，只不過實現方式有了變化。由于在容器中的每一個控件只要不作特殊處理，都會自動構成了控件集合，這樣，只要對原有的事件例程作少量修改，就可以非常方便的實現用一個事件例程響應某個集合中所有控件產生的事件。

下面演示實現用同一個例程來處理兩個Button和一個TextBox發出的Click事件。

建立一個VB.NET項目，在Form上添加兩個Button，和一個TextBox。

在代碼編輯窗口中點擊“#Region " Windows 窗體設計器生成的代碼”旁邊的“＋”號，代碼展開后，找到如下代碼并調整為下面的順序：

Me.Controls.Add(Me.TextBox1)  
Me.Controls.Add(Me.Button1)  
Me.Controls.Add(Me.Button2) 

輸入如下代碼：

Private Sub mControl_Click(ByVal 
sender As System.Object, ByVal e 
As System.EventArgs) Handles Button1.
Click, Button2.Click, TextBox1.Click  
Select Case sender.tabindex  
Case 0  
MessageBox.Show("你點擊了 Button1 按鈕")  
Case 1  
MessageBox.Show("你點擊了 Button2 按鈕")  
Case 2  
MessageBox.Show("你點擊了 TextBox1 按鈕")  
End Select  
End Sub 

在這段VB.NET控件數組使用代碼中：Private Sub mControl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, TextBox1.Click 是一個自定義事件，在Handles后面的語句表示：該例程將響應Button1, Button2, TextBox1控件發出的Click事件，如果還有其他控件，也可以放在后面，每一個控件名稱用“,”號隔開。
運行項目，分別點擊Form上面的三個控件就能體會到它的用法。