Visual_BASIC_PPT谭浩强第6章.ppt

第6章 列表框、组合框和滚动条 6.1 列表框 6.2 组合框 6.3 滚动条 习题 6.1　列表框 在实际应用中，常常有这样的情况：列出若干个项，供用户从中任意选择，并对其作某种处理。例如，有若干个航班，用户从中选择某一航班，要求立即显示出该航班的有关资料。显然，用文本框难以实现这一要求。 VB提供了列表框控件，可以方便地解决这类问题。在列表框中，放入若干个项的名字，用户可以选择其中的一个或多个项。如果放入的项较多，超过了列表框的长度，则系统会自动在列表框边上加一个垂直滚动条，通过移动滚动条可以使列表框中的内容作上下滚动，以使用户能够看到所需的内容。列表框图标为 。 6.1.1 向列表框中添加一个项 在一个列表框中可以包括许多项 (item)。这些项的内容既可以在设计时直接写入,也可以在程序运行时加入。但从实际情况考虑，往往是通过程序来添加项的内容。我们通过例题说明如何使用AddItem方法向列表框中添加项。 【例6.1】 设计一个程序，查询飞往各城市的航班时间。其功能是：在程序运行后，用户从列表框中选择一个城市名，然后单击命令按钮，显示出航班的起飞时间。 先设计窗体。窗体中包含一个列表框、一个命令按钮，两个无边界的标签框，用于显示提示文本“请选择目的地”和“航班信息”；以及一个有边界的 　标签框，用来显示航班信息。（见图6.1）。 在窗体上画出列表框的方法与其他控件类似，单击工具箱中的列表框控件（ListBox）,然后在窗体中适当位置处拖拉成所需的大小。在建立了列表框后，要向列表框放入各项。用AddItem方法向列表框中插入一个项。例如 LstPlace.Additem “上海”，表示在列表框LstPlace中加入“上海”作为一项。 AddItem方法的一般格式如下： 对象名. AddItem 项字符串[，项索引号] 其中的“项字符串”是用“”定界的、将要在列表框中显示的项名称。“项索引号”是从0开始的顺序号，标明新增的项在列表框中的位置。如果不写“项索引号”，则把新增的项添加到列表的末尾。项索引号对 　应于列表框的ListIndex属性（有关ListIndex属性将在本章的稍后介绍），可以通过列表框的ListIndex属性确定所选择的项。 　　我们希望程序一开始运行就把所有目的地名都显示在列表框中，可以利用Form_Load事件实现列表框的初始化。可以编写出以下事件过程： Private Sub Form_Load ( ) LstPlace.AddItem 上海 LstPlace.AddItem 大连 LstPlace.AddItem 广州 LstPlace.AddItem 深圳 LstPlace.AddItem 重庆 LstPlace.AddItem 厦门 LstPlace.AddItem 新疆 LstPlace.AddItem 拉萨 End Sub 在程序运行开始装入窗体后，列表框中就列出了上海、大连等8个地名。如果在窗体设计时所定义的列表框的大小不能全部容纳这些地名，则在列表框中只显示出其中一部分，而在右侧自动加一个垂直滚动条。如果一个项的字数过多，在列表框中一行放不下，只能在一行中显示出一部分，则在列表框下侧自动加一个水平滚动条。通过移动滚动条浏览。 下面考虑的是：当用户单击某一地名（如上海）时，如何能在窗体上显示出该航班的信息。列表框支持单击事件。当单击列表框中“上海”时，列表框的Text属性就获得一个值--“上海”，同时ListIndex属性（表示被选中的项在列表中的顺序）获得一个值--0（序号从0开始，由于上海位于列表的首行，故此时列表框的ListIndex属性值为0）。我们可以利用ListIndex属性的值，判断被选中的项。相应的事件过程如下。 Private Sub LstPlace_Click ( ) ch$ = 北京 -- Select Case LstPlace.ListIndex Case 0 ch1$ = 星期五 15:00 起飞 Label2.Caption = ch$ + LstPlace.Text + ch1$ ′显示上海航班信息 Case 1 ch1$ = 星期一 09:00 起飞 Label2.Caption = ch$ + LstPlace.Text + ch1$ ′显示大连航班信息 Case 2 ch1$ = 星期六 22:20 起飞