九、列表框【DOC精选】.docVIP

九、列表框 列表框显示项目列表，从其中可以选择一项或多项。如果项目总数超过了可显示的项目数，就自动在列表框上添加滚动条。 例31：设计一个程序，查询由上海飞往各大城市的航班时间。运行时，在列表框中点击要去的目的地，再点击“结束”命令按钮，就显示航班的起飞时间。 上图左边是设计时的界面，右边是运行时的界面。 在属性窗口分别设置如表： 对象 属性 设置 Form1(窗体) Caption 例31 (名称) Form1 List1(列表框1) (名称) Lstplace Label1(标签框1) Caption 请选择目的地 BorderStyle 0 – None (名称) Label1 Label2(标签框2) Caption 航班信息 BorderStyle 0 – None (名称) Label2 Label3(标签框3) Caption (名称) Label3 BorderStyle 1 – Fixed Single Command1(命令按钮1) Caption 结束 (名称) CmdExit 在代码窗口完成如下： Private Sub Form_Load() LstPlace.AddItem 北京 LstPlace.AddItem 天津 LstPlace.AddItem 重庆 LstPlace.AddItem 广州 LstPlace.AddItem 拉萨 LstPlace.AddItem 乌鲁木齐 LstPlace.AddItem 香港 LstPlace.AddItem 深圳 LstPlace.AddItem 厦门 End Sub Private Sub LstPlace_Click() ch$ = 上海— Select Case LstPlace.ListIndex 列表框中选中的项目的索引号 Case 0 ch1$ = 星期二 10：00 起飞 Case 1 ch1$ = 星期一 18：30 起飞 Case 2 ch1$ = 星期四 14：00 起飞 Case 3 ch1$ = 星期五 10：00 起飞 Case 4 ch1$ = 星期一 09：00 起飞 Case 5 ch1$ = 星期三 12：00 起飞 Case 6 ch1$ = 星期二 15：00 起飞 Case 7 ch1$ = 星期四 17：00 起飞 Case 8 ch1$ = 星期二 14：00 起飞 End Select Label3.Caption = ch$ + LstPlace.Text vbCrLf + ch1$ End Sub Private Sub CmdExit_Click() End End Sub 这里要在列表框放入各项，用AddItem方法。AddItem方法的一般格式： 对象名. AddItem 项字符串 [，项索引号] 其中，“项字符串”是字符串前后用双引号，“项索引号”是从0开始的顺序号，标明新增项在列表框中的位置；如果原项索引号有项目，则原项索引号的项目及其后的项目位置依次增加1。如果省略项索引号，新增项添加到列表的末尾。 要在列表框删除某项，RemoveItem 方法。RemoveItem 方法的一般格式： 对象名.RemoveItem [项索引号] 例如：在习题31中用LstPlace.RemoveItem 1就删除了列表框中的“天津”，当然要运行到这语句，如多次运行到这语句就将删除将不仅仅是“天津”了。 要在列表框删除所有项，Clear 方法。Clear方法的一般格式： 对象名. Clear ListIndex属性：列表框选中项的索引号。 Text属性：列表框选中项的内容。 另外也可将LstPlace_Click()过程，改成如下，同样可达要求。 Private Sub LstPlace_Click() ch$ = 上海— Select Case LstPlace.Text Case 北京 ch1$ = 星期二 10：00 起飞 Case 天津 ch1$ = 星期一 18：30 起飞 Case 重庆 ch1$ = 星期四 14：00 起飞 Case 广州 ch1$ = 星期五 10：00 起飞 Case 拉萨 ch1$ = 星期一 09：00 起飞 Case 乌鲁木齐 ch1$ = 星期三 12：00 起飞 Case 香港 ch1$ = 星期二 15：00 起飞 C