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

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

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

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

　　Private Sub Comset-Click()

　　For i=0 To 3

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

　　Next

　　End Sub

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

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

　　控件數(shù)組中的對(duì)象共享相同的事件過(guò)程，不同的對(duì)象通過(guò)索引號(hào)(Index)來(lái)區(qū)分，編寫(xiě)控件數(shù)組的GotFocus事件過(guò)程如下;

　　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.語(yǔ)句來(lái)判斷控件數(shù)組中的哪一個(gè)文本框具有焦點(diǎn)。如果不使用控件數(shù)組，則需要為每一個(gè)文本框編寫(xiě)一個(gè)GotFocus事件過(guò)程。

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

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

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

　　2011年上半年計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間匯總