實例5.23使用控件數組。

　　在該程序中，用戶單擊按鈕后，則在四個文本框中分別顯示“這是文本框1”、“這是文本框2”等。并且，在窗體上還顯示當前哪個文本框具有焦點，如圖5.73所示。

　　使用上述任意一種方法在窗體中建立一個包含四個文本框的控件數組所示，且控件數組的名稱為Tex.再在窗體上放置一個按鈕控件和一個標簽控件，如圖5.74所示。各對象的屬性設置如表5.35所示。

　　雙擊【設置】按鈕，打開【代碼】窗口，編寫Comset_Click事件過程如下：

　　Private Sub Comset-Click()

　　For i=0 To 3

　　Tex(i).Text =“這是文本框”& i+1

　　Next

　　End Sub

　　在該段代碼中，使用了一個For循環語句，依次為各文本框的Text屬性賦值。如果各文本框是獨立的，不是一個控件數組，則不能使用for循環語句，只能為每一個文本框各編寫一個賦值語句。如果需要對很多文本框的Text屬性賦值，則在編寫代碼時既麻煩又羅嗦，使用控件數組后，就使得程序代碼的編寫簡單明了。

　　注意：在控件數組中，對象不能直接使用空間數組名，例如，不能些出Tex.Text=“這是文本框”，而要寫成Tex(0).Text=這是文本框。這與對數組的操作是類似的。

　　控件數組中的對象共享相同的事件過程，不同的對象通過索引號(Index)來區分，編寫控件數組的GotFocus事件過程如下;

　　Private Sub Tex_GotFocus(Index As Intege)

　　Select Case Index。

　　Case 0

　　LabFocus.Caption=“文本框1具有焦點”

　　Case 1

　　LabFocus.Caption=“文本框2具有焦點”

　　Case 2

　　LabFocus.Caption=“文本框3具有焦點”

　　Case 3

　　LabFocus.Caption=“文本框4具有焦點”

　　End Select

　　End Sub

　　在該段代碼中，使用了Select Case.語句來判斷控件數組中的哪一個文本框具有焦點。如果不使用控件數組，則需要為每一個文本框編寫一個GotFocus事件過程。

　　2010年9月計算機等級考試成績查詢時間匯總

　　2011計算機等級考試二級VB考點及習題匯總

　　2011年計算機等級考試二級VB復習指導匯總

　　2011年上半年計算機等級考試報名時間匯總