VB教程第二章第七節(jié)——列表框控件

1、VB 神童教程第二章第七節(jié)列表框控件作者：未知    閱讀人次：42671    文章來(lái)源：未知    發(fā)布時(shí)間：2004-12-15    網(wǎng)友評(píng)論(66)條 Visual Basic 提供了列表框控件（ListBox）以供用戶進(jìn)行多個(gè)項(xiàng)目的選擇。在工具箱面板上，列表框控件的圖標(biāo)如圖一所示： 圖一默認(rèn)的列表框控件名為 ListX（X為阿拉伯?dāng)?shù)字 1、2、3，等等），規(guī)則的命名方式為：LstX（X為用戶自定義的名字，

2、如 LstName、LstUser，等等）。一、列表框控件的主要屬性：列表框中可以有多個(gè)項(xiàng)目供選擇，用戶通過(guò)單擊某一項(xiàng)選擇自己所需要的項(xiàng)目，如果項(xiàng)目太多，超出了列表框設(shè)計(jì)時(shí)的長(zhǎng)度，則自動(dòng)增加豎向滾動(dòng)條，如圖二：圖二除了一些常見(jiàn)的諸如 Font 、Height、Left、Width、Enabled、Name 等屬性外，列表框還有一些特殊的屬性：1、List（列表）屬性：List 是列表框最重要的屬性之一，其作用是羅列或設(shè)置表項(xiàng)中的內(nèi)容?？梢栽诮缑嬖O(shè)置時(shí)直接輸入內(nèi)容，如圖三：圖三在程序運(yùn)行時(shí)，列表框中所有的選項(xiàng)，都可以通過(guò) List(下標(biāo)值) 的形式表示。比如列表框中的第一項(xiàng)，用 List(0)表

3、示，列表框中的第二項(xiàng)，用 List(1)表示，列表框中的第十項(xiàng)，用 List(9)表示，以此類推。大家注意，列表框中的第一項(xiàng)，是 List(0) ，而不是 List(1) 。1、List() 屬性的使用是非常靈活的，比如我們要從如圖二的列表框（Lst1）中取出第三項(xiàng)內(nèi)容，可以用下面的代碼做到：A$ = Lst1.List(2)其中，A 是一個(gè)變量；$ 指明了這個(gè)變量的類型：字符串型；這句話的意思是：將 Lst1 列表框中第三項(xiàng)（List(2)）取出來(lái)然后賦值給字符串變量 A 。象上面這種賦值辦法，在 VB 中是非常普遍的，又如以前我們學(xué)到的：LblShow.Caption = "Vi

4、sual Basic"，這句話是指將 Visual Basic 這個(gè)字符串賦值給 LblShow 標(biāo)簽控件并作為其標(biāo)題。緊接上面的內(nèi)容，假設(shè)我們用一個(gè)標(biāo)簽顯示出剛才取出的表項(xiàng)：LblShow.Caption = A$那么顯示的結(jié)果正是我們?nèi)〕龅倪x項(xiàng)?？梢?jiàn)，取出某個(gè)列表框中的某一表項(xiàng)并將其賦值給某個(gè)變量，代碼如下：字符串變量 = 列表框名稱.List(X) ，其中，X 是下標(biāo)。2、通過(guò) List() 改變?cè)斜眄?xiàng)：假設(shè)我們要將如圖二的列表框中第三項(xiàng)內(nèi)容改為“跟我學(xué) VB”，只需輸入下面的代碼即可：Lst1.List(2) = "跟我學(xué) VB"上句話的意思是將“跟我學(xué)

5、 VB”字符串賦值給 Lst1 并作為其第三項(xiàng)的內(nèi)容。結(jié)果如圖四：圖四可見(jiàn)，要修改某個(gè)列表框中某一選項(xiàng)：列表框名稱.List(X) = "欲修改成的內(nèi)容" ，其中，X 是下標(biāo)。2、ListCount 屬性：本屬性返回列表框表項(xiàng)數(shù)量的數(shù)值，只能在程序運(yùn)行時(shí)起作用。比如：一個(gè)有著四種選項(xiàng)的列表框，那么 ListCount 就為 4 ；一個(gè)列表框有五個(gè)選項(xiàng)，那么 ListCount 就為 5 。返回一個(gè)列表框的表項(xiàng)數(shù)量值并將其賦值給某個(gè)變量，代碼如下：數(shù)值型變量 = 列表框名稱.ListCount比如要返回圖二列表框的 ListCount：X% = Lst1.ListCount

6、，其中，X 是變量，% 表示X是整數(shù)類型的變量。3、ListIndex（索引）屬性：本屬性用來(lái)返回或設(shè)置控件中當(dāng)前選擇項(xiàng)目的索引號(hào)，只能在程序運(yùn)行時(shí)使用。第一個(gè)選項(xiàng)的索引號(hào)是 0 ，第二個(gè)選項(xiàng)的索引號(hào)是 1 ，第三個(gè)選項(xiàng)的索引號(hào)是 2 ，依此類推，ListCount 始終比最大的 ListIndex 值大 1 。當(dāng)列表框沒(méi)有選擇項(xiàng)目時(shí)， ListIndex 值為 -1 。在程序中設(shè)置 ListIndex 后，被選中的項(xiàng)目呈反相顯示，如圖五：圖五在列表框控件的所有屬性中，本屬性是非常重要的，因?yàn)橐粋€(gè)列表，事先你并不知道用戶將要選擇哪一條項(xiàng)目，這時(shí)，只有根據(jù) ListIndex 返回的數(shù)值，我們才

7、能讓程序針對(duì)用戶的選擇做出適當(dāng)?shù)姆磻?yīng)。返回 ListIndex 的代碼如下：X% = 列表框名稱.ListIndex聯(lián)想：根據(jù)前面的知識(shí)我們知道，要取出第三項(xiàng)內(nèi)容，代碼如下：A$ = Lst1.List(2)假設(shè)現(xiàn)在選中的是第三項(xiàng)，但我們事先不知道用戶要選擇這一項(xiàng)，那么又應(yīng)該如何訪問(wèn)這第三項(xiàng)呢？代碼如下：A$ = Lst1.List(Lst1.ListIndex) 此時(shí)，Lst1.ListIndex 等同于 2 。仔細(xì)想一想，為何要如此書(shū)寫(xiě)？4、Columns（列）屬性：本屬性用來(lái)確定列表框的列數(shù)，當(dāng)值為 0 時(shí)，所有項(xiàng)目呈單列顯示；當(dāng)值為 1 或者大于 1 ，項(xiàng)目呈多列顯示。Columns

8、屬性只能在界面設(shè)置時(shí)指定。如圖六：圖六默認(rèn)狀態(tài)時(shí)，如果項(xiàng)目的總高度大于列表框的高度，那么列表框右邊會(huì)自動(dòng)增加一個(gè)垂直滾動(dòng)條，用來(lái)上下移動(dòng)列表框。5、MultiSelect（多重選擇）屬性：本屬性決定了選項(xiàng)框中的內(nèi)容是否可以進(jìn)行多重選擇，只能在界面設(shè)置時(shí)指定，程序運(yùn)行時(shí)不能予以修改。如圖七：圖七M(jìn)ultiSelect 共有三個(gè)值：0 ，不允許多項(xiàng)選擇，如果選擇了一項(xiàng)就不能選擇其他項(xiàng)；1 ，允許多重選擇，但功能不如 2 ，可以用鼠標(biāo)或空格選擇；2 ，功能最強(qiáng)大的多重選擇，可以結(jié)合 Shift 鍵或 Ctrl 鍵完成多個(gè)表項(xiàng)的多重選擇。方法是：?jiǎn)螕羲x擇的范圍的第一項(xiàng)，然后按住 Shift 鍵，再

9、單擊選擇范圍最后一項(xiàng)。6、Style（類型）屬性：本屬性決定了列表框的外觀，共有兩個(gè)值：1 ，Standard ，即為標(biāo)準(zhǔn)型，如圖八：圖八2 ，CheckBox ，復(fù)選框型，如圖九：圖九本屬性只能在界面設(shè)置時(shí)確定。7、Selected（選中）屬性：本屬性返回或設(shè)置在列表框控件中某項(xiàng)目是否選中的狀態(tài)。選中時(shí)，值為 True ；未被選中，值為 False 。代碼規(guī)則如下： 列表框名稱.Selected(索引值) = True/False注意，索引號(hào)其實(shí)是項(xiàng)目的下標(biāo)值，如果是第三項(xiàng)，那么索引值是 2 ，如果是第十項(xiàng)，那么索引值是 9 ，以此類推。例一：有如圖十這樣一個(gè)應(yīng)用程序：圖十列表框（LstNa

10、me）中是人物的名稱，用戶選擇不同的名字，下面的標(biāo)簽（LblShow）自動(dòng)顯示此人的相關(guān)信息。源代碼如下：Private Sub LstName_Click()If LstName.Selected(0) = True ThenLblShow.Caption = "馬拉多納是阿根廷的球星"ElseIf LstName.Selected(1) = True ThenLblShow.Caption = "貝肯鮑爾是德國(guó)的球星"ElseIf LstName.Selected(2) = True ThenLblShow.Caption = "羅納爾多是

11、巴西的球星"ElseLblShow.Caption = "貝克漢姆是英國(guó)的球星"End IfEnd Sub本程序是根據(jù)用戶選擇的不同，在標(biāo)簽按件中顯示不同的信息；另外，我們用到了前面學(xué)到的 If ···Then··· ElseIf··· End If 語(yǔ)法。8、SelCount（選中項(xiàng)目數(shù)量）：只有當(dāng) MultiSelect 屬性值為 1 或 2 時(shí)，本屬性才起作用，用來(lái)讀取列表框中所選項(xiàng)目的數(shù)目，通常與 Selected 一起使用，以處理控件中的所選項(xiàng)目。二、列表框控件的主

12、要事件：列表框控件主要接收 Click 與 DblClick ，如例一。三、列表框控件的方法：1、增加項(xiàng)目：AddItem用 AddItem 可以為列表框增加項(xiàng)目，代碼規(guī)則如下：列表框名稱.AddItem 欲增項(xiàng)目,索引值其中，索引值是可選項(xiàng)，是指欲增項(xiàng)目放到原列表框中的第幾項(xiàng)，如放在第三項(xiàng)，那么索引值是 2 ，放在第五項(xiàng)，索引值則是 4 。假設(shè)我們要在如圖十這樣的程序中增加項(xiàng)目：LstName.AddItem "郝海東",42、清除所有：Clear用 Clear 可以清除列表框中所有的內(nèi)容，代碼如下：列表框名稱.Clear3、刪除選項(xiàng)：RemoveItem此方法可以刪除列表框中指定的項(xiàng)目，代碼如下：列表框名稱.RemoveItem 索引值其中，索引值是必須的，表示欲刪除哪一個(gè)項(xiàng)目。同樣如圖十的程序，假設(shè)我們要?jiǎng)h除第三個(gè)項(xiàng)目，代碼如下：LstName.RemoveItem 2聯(lián)想：對(duì)于任意一個(gè)列表框，要?jiǎng)h除已經(jīng)選中的項(xiàng)目，代碼如下：列