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

　　實(shí)例5.18顯示列表框信息。

　　在該程序中，用戶單擊按鈕后，會(huì)在窗體上顯示出列表框中的項(xiàng)目數(shù)、項(xiàng)目?jī)?nèi)容和用戶所選項(xiàng)目等信息。

　　在窗體中放置一個(gè)列表框控件和一個(gè)按鈕控件。其中各對(duì)象的屬性設(shè)置。

　　雙擊【顯示】按鈕，打開(kāi)【代碼】窗口，將下列代碼添加到Command1_Click事件過(guò)程中：

　　Private Sub Command1_Click()

　　Cls

　　Print

　　Print Spc(3);“項(xiàng)目數(shù)為：”;List1.ListCount

　　Print

　　Print Spc(3);“項(xiàng)目為：”

　　For i= 0 To List1.ListCount - 1

　　Print Spc(6);Listl.list(i)

　　Next

　　Print

　　If List1.ListIndex<0 Then

　　Print Spc(3);“您沒(méi)有選中任何項(xiàng)目”

　　Else

　　Print Spc(3);“您選中的是：”& Listl.Text

　　End If

　　End Sub

　　在該程序中，首先顯示出列表框中的項(xiàng)目數(shù)，然后使用For循環(huán)語(yǔ)句顯示出各項(xiàng)目的內(nèi)容，最后，使用If語(yǔ)句來(lái)判斷用戶是否選中了某項(xiàng)目。如果沒(méi)有選中任何項(xiàng)日(ListIndex屬性值為-1)，則顯示“您沒(méi)有選中任何項(xiàng)目”，否則，顯示出所選項(xiàng)目。

　　運(yùn)行該程序，直接單擊【顯示】按鈕，則在窗體上顯示出列表框的有關(guān)信息，并顯示出用戶沒(méi)有選中任何項(xiàng)目。在列表框中選中某項(xiàng)目，再單擊【顯示】按鈕，則在窗體上顯示出列表框的有關(guān)信息，并顯示出用戶所選中的項(xiàng)目。

　　在上述實(shí)例中，用戶侮次只能一個(gè)選中項(xiàng)目，這是因?yàn)镸ultiSelect屬性的默認(rèn)值為0.MultiSelect屬性決定用戶在列表框中是否能夠同時(shí)選中多個(gè)項(xiàng)目。表5.29中列出了MultiSelect屬性的值及其含義。

　　如果列表框允許用戶選中多個(gè)項(xiàng)目，列表框的ListIndex屬性和Text屬性記錄的只是用戶最后一次選擇的項(xiàng)目。為了能夠知道列表框中哪些項(xiàng)目被選中，需要使用到列表框的Selected屬性。

　　Selected屬性表示列表框中各個(gè)項(xiàng)目是否被選中。Selected屬性也是一個(gè)數(shù)組，它通過(guò)索引號(hào)與列表框中的項(xiàng)目相聯(lián)系。例如：

　　Listl.Selected(1)=True.

　　表明列表框List 1中的第二個(gè)項(xiàng)目被選中。

　　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í)間匯總