2011年度计算机等级考试二级VB复习指导(42)

　　实例5.18显示列表框信息。

　　在该程序中，用户单击按钮后，会在窗体上显示出列表框中的项目数、项目内容和用户所选项目等信息。

　　在窗体中放置一个列表框控件和一个按钮控件。其中各对象的属性设置。

　　双击【显示】按钮，打开【代码】窗口，将下列代码添加到Command1_Click事件过程中：

　　Private Sub Command1_Click()

　　Cls

　　Print

　　Print Spc(3);“项目数为：”;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

　　在该程序中，首先显示出列表框中的项目数，然后使用For循环语句显示出各项目的内容，最后，使用If语句来判断用户是否选中了某项目。如果没有选中任何项日(ListIndex属性值为-1)，则显示“您没有选中任何项目”，否则，显示出所选项目。

　　运行该程序，直接单击【显示】按钮，则在窗体上显示出列表框的有关信息，并显示出用户没有选中任何项目。在列表框中选中某项目，再单击【显示】按钮，则在窗体上显示出列表框的有关信息，并显示出用户所选中的项目。

　　在上述实例中，用户侮次只能一个选中项目，这是因为MultiSelect属性的默认值为0.MultiSelect属性决定用户在列表框中是否能够同时选中多个项目。表5.29中列出了MultiSelect属性的值及其含义。

　　如果列表框允许用户选中多个项目，列表框的ListIndex属性和Text属性记录的只是用户最后一次选择的项目。为了能够知道列表框中哪些项目被选中，需要使用到列表框的Selected属性。

　　Selected属性表示列表框中各个项目是否被选中。Selected属性也是一个数组，它通过索引号与列表框中的项目相联系。例如：

　　Listl.Selected(1)=True.

　　表明列表框List 1中的第二个项目被选中。

　　2010年9月计算机等级考试成绩查询时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB复习指导汇总

　　2011年上半年计算机等级考试报名时间汇总