2011年度計算機(jī)等級考試二級VB復(fù)習(xí)指導(dǎo)(46)

　　實例5.23使用控件數(shù)組。

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

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

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

　　Private Sub Comset-Click()

　　For i=0 To 3

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

　　Next

　　End Sub

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

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

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

　　Private Sub Tex_GotFocus(Index As Intege)

　　Select Case Index。

　　Case 0

　　LabFocus.Caption=“文本框1具有焦點(diǎn)”

　　Case 1

　　LabFocus.Caption=“文本框2具有焦點(diǎn)”

　　Case 2

　　LabFocus.Caption=“文本框3具有焦點(diǎn)”

　　Case 3

　　LabFocus.Caption=“文本框4具有焦點(diǎn)”

　　End Select

　　End Sub

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

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

　　2011計算機(jī)等級考試二級VB考點(diǎn)及習(xí)題匯總

　　2011年計算機(jī)等級考試二級VB復(fù)習(xí)指導(dǎo)匯總

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