實例5.18顯示列表框信息。

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

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

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

　　Private Sub Command1_Click()

　　Cls

　　Print

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

　　Print

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

　　For i= 0 To List1.ListCount - 1

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

　　Next

　　Print

　　If List1.ListIndex<0 Then

　　Print Spc(3);“您沒有選中任何項目”

　　Else

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

　　End If

　　End Sub

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

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

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

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

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

　　Listl.Selected(1)=True.

　　表明列表框List 1中的第二個項目被選中。

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

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

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

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