第五章 列表框与组合框

第五章列表框与组合框一、列表框（ListBox）

控件二、组合框（ComboBox）控件一、列表框（ListBox）

控件列表框控件（ListBox）用于显示项目列表，用户可从中选择一个或多个项目。如果项目总数超过了可显示的项目数，VB会自动加上滚动条。列表框有两种风格：标准和复选列表框。通过它的Style属性来设置。List“List1”是控件的名称，而不是实际上列表清单中数据。在每一项输入后，必须以“Ctrl+Enter”换行格式是：

[<对象名>.].List(<索引值>)[=<字符串表达式>]如：List1.List(5)=“插入”Text与ListIndex选取的数据ListIndex使list数组中最后一个被选取得项目的索引值。Text则是数组中对应的字符串数据。ListIndex等于“1”Text等于“第二项”例题5.1利用列表框让用户选择窗体的颜色。MultiSelect属性——设置是否能够选择多项。

MultiSelect=0：不允许复选（缺省值）。

MultiSelect=1：简单复选。鼠标单击或按下空格键，在列表中选中或取消选中项。使用箭头键移动焦点。

MultiSelect=2：扩展复选。按下SHIFT

并单击鼠标或按箭头键选择连续的多项。按下CTRL并单击鼠标选择不连续的多项（或取消选中项）。

MultiSelect属性在运行时是只读的。Style属性——控制列表框的外观

Style=0：默认值，标准样式，单击选项即可选中。

Style=1：复选框样式，列表框的每个项目以复选框的形式显示（不受MultiSelect属性的影响）。

Style属性在运行时是只读的。

Style=0

Style=1Sorted属性——指示列表框中的条目是否排序。

Sorted属性值为True，则选项按字母顺序升序排列，否则按输入的顺序排列。

Sorted属性为只读属性Columns属性:决定列表框中显示条目的列数。0----显示一列（默认），垂直滚动条。1----显示一列，水平滚动条。

n----显示n列，水平滚动条。（n>1）Columns=3时，水平滚动条。列表框的方法与事件AddItem方法——向列表框中添加新条目格式：

[列表框名].AddItem字符串表达式[,插入位置序号]

若不指定插入位置，且Sorted=False，则插入到列表尾；否则插入到适当位置。

例如：List1.AddItem“王平”

例题5.2利用文本框及列表框，让用户一一输入板及学生的姓名。在文本框输入完成后，通过设置按钮的Default属性，使得按下就会输入的数据加入列表框。PrivateSubCommand1_Click()IfTrim(Text1)<>“”Then‘如果输入不是空字

符串，就加入列表

List1.AddItemTrim(Text1)Text1=""EndIfEndSub例题5.3要求将列表框中插入的数值进行排序，把新加入的数据一一插入到适当的位置。PrivateSubCommand1_Click()If

IsNumeric(Text1)Then

n=Val(Text1)

Fori=0ToList1.ListCount-1IfVal(List1.List(i))>nThenExitForEndIfNext判断输入的是否为数值，并赋值给nListCount属性——列表框中的条目数找出插入数据的适当位置List1.AddItemText1,i'插入数据

Text1=""EndIfEndSubRemoveItem方法——删除指定列表项格式：

[列表框名].RemoveItem删除项序号

例如：List1.RemoveItem0

Clear方法——删除列表框中的所有项。格式：[列表框对象名].Clear例题5.4使用双击事件让用户将List1中的数据加入到List2当中。PrivateSubForm_Load()

Fori=1To30List1.AddItemiNextEndSub初始化时在列表框1中产生30个数字。PrivateSubList1_DblClick()

Command1.Value=TrueEndSubPrivateSubList2_DblClick()Command2.Value=TrueEndSub触发单击命令按钮事件。PrivateSubCommand1_Click()Fori=List1.ListCount-1To0Step-1IfList1.Selected(i)ThenList2.AddItemList1.List(i)List1.RemoveItem(i)EndIfNextEndSubSelected属性是一个逻辑型数组（与List和ItemData属性类似），其中的每个元素对应列表框中的一个选项的选择状态：

Selected=True时，对应项被选中；

Selected=False时，对应项没有选中。

Selected属性的语法为：列表框名.Selected(<序号>)[=<逻辑值>]列表框中的条目数例题5.5设计一个程序，查询飞往各城市的航班时间，程序运行后，用户从列表中选择一个城市，然后单击，显示出航班的起飞时间。PrivateSubForm_Load()List1.AddItem"上海"

List1.AddItem"大连"

List1.AddItem"广州"

List1.AddItem"深圳"EndSubPrivateSubList1_Click()ch$="北京--"

SelectCaseList1.ListIndexCase0ch1$="星期五15:00起飞"

Label3.Caption=ch$+List1.Text+ch1$Case1ch1$="星期一09:00起飞"

Label3.Caption=ch$+List1.Text+ch1$Case2ch1$="星期六22:20起飞"

Label3.Caption=ch$+List1.Text+ch1$Case3ch1$="星期五23:30起飞"

Label3.Caption=ch$+List1.Text+ch1$

EndSelect二、组合框（ComboBox）控件组合框控件将文本框和列表框的特性结合在一起——既可以在控件的文本框部分输入信息，也可以在控件的列表框部分选择一项。组合框的默认名为ComboX（X=1，2，…）。组合框有三种风格：下拉式组合框简单组合框下拉式列框表ListSortedBankColorForcolorFontEnableVisibleTagItemDataAppearance列表属性排序选择背景颜色文字颜色文字字体可使用可看见程序中的附加数据附加数据立体外观一般属性Style属性——

外观属性。组合框有三种外观：

Style=0，下拉式组合框（默认值）

Style=1，简单组合框

Style=2，下拉式列表框方法AdditemRemoveItemClearSetFocusMove加入数据项删除数据项清除全部数据项将焦点移动到控件上改变控件在窗体上的位置Change事件只有在style为0或1且文本框存在使可用。当文本框的数据改变是将触发此事件。例题5.6程序如下程序，当选则不同的“省名称”时，将可以看到不同邮政区号分区的选择。Dimcity()动态数组Dimcat(25)

静态数组

city=Array(“河北省","辽宁省","吉林省","黑龙江省")

cat(0)=Array(“邯郸（0310)”,“石家庄(0311)”,“乐城”,"保定(0312)","张家口(0313)","秦皇岛(0335)")

cat(1)=Array(“沈阳(024)”,“大连(0411)”,“鞍山(0412)”,“抚顺（0431)","辽阳(0419)")

cat(2)=Array("长春(0431)","吉林（0431)","长白(0455)")

cat(3)=Array(“哈尔滨(0451)”,“齐齐哈尔（0452)”,“牡丹(0453)")Fori=0To3Combo1.AddItemcity(i)Nex