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

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

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

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

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

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

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

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

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

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

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

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

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