第10节 列表框
常常有这种情况：要求列出若干个项，供用户从中任意选择，并对其作某种处理。VB提供了列表框控件，可以解决这类问题。
例1.设计一个程序，查询飞往各城市的航班时间。其功能是：在程序运行后，用户从列表框中选择一个城市名，然后单击按钮，显示出航班的起飞时间。
-
界面设计
-
属性设置
| 对象 |
属性 |
属性值 |
对象 |
属性 |
属性值 |
| 列表框1 |
Caption |
List1 |
标签框2 |
Caption |
置空 |
| 窗体 |
Caption |
Form1 |
BackColor |
突出显示文本 |
|
| 标签框1 |
Caption |
请选择目的地 |
命令按钮 |
Caption |
结束 |
| 标签框3 |
Caption |
航班信息 |
列表框的常用属性：
| 属性名 |
属性功能 |
属性值 |
属性说明 |
| Columns |
指定列表框可见的列数 |
|
缺省值为0 |
| List |
字符串数组 |
List1.list(2) |
列表框的第3个元素 |
| ListCount |
表示列表框中有多少列表项 |
|
|
| ListIndex |
设置和返回被选中的选项在List |
没有选中时值为-1 |
ListIndex从0开始 |
| MultiSelect |
确定列表框中是否允许选择多项 |
0 |
只能选一项 |
| 用Ctrl+单击选项选择不连续排列 |
1 |
允许选多项 |
|
| 2 |
选某个范围的项 |
||
| Selected() |
表示列表框中的列表项是否被选中 |
属性是一个数组 |
List1.Selected(1)=True |
|
|
ListIndex属性：表示被选中的项在列表中的顺序，该属性值为一个顺序号的起始值。
在列表框中添加一个项：〈对象名〉.ADDItem <项字符串>[，项索引号]
在列表框中删除一个项：〈对象名〉.RemoveItem ，<项索引号>
-
程序代码
当列表中的一项被删除后列表中被删除项后面的各项序号会递减1。为了避免删除项给序号改变带来的混乱可以将程序作一些修改。
例2.窗口有两个列表框，两个命令按钮。一个列表框显示系统提供的屏幕字体。用户可以用鼠标在“可选的屏幕字体”列表框中选择一个或多个字体名称。然后，单击“显示”命令按钮时，在另一个列表框显示用户所选中的列表项。
-
界面设计
-
设置属性
| 对象 |
属性 |
属性值 |
对象 |
属性 |
属性值 |
| 列表框1 |
名称 |
List1 |
列表框2 |
名称 |
List2 |
| Multiselect |
2 |
命令按钮1 |
名称 |
Command1 |
|
| 标签框1 |
名称 |
Label1 |
Caption |
显示 |
|
| Caption |
可选屏幕字体 |
命令按钮1 |
名称 |
Command1 |
|
| 标签框2 |
名称 |
Label2 |
Caption |
结束 |
|
| Caption |
被选中的字体 |
窗体 |
Caption |
Form1 |
常用属性：
| 属性 |
属性功能 |
属性值 |
属性说明 |
| Sorted |
列表框的各项是否按字母序排列 |
True(按字母序排列) |
False(不按字母序排列） |
| Text |
返回最后一次选中的正文 |
|
|
| Style |
是否在每个选项前加一个选择框 |
0（缺省值，不加选择框） |
1（加选择框） |
-
程序代码
