允许多项选择的列表框

《允许多项选择的列表框》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、技巧1允许多项选择的列表框一般情况下在显示的列表框中用户只能选择一个列表项，而经过简单的设置，列表框条目前可以显示选项按钮，允许进行多项选择，如下面的代码所示。#001PrivateSubUserForm_Initialize()#002DimarrAsVariant#003arr=Array("经理室","办公室","生技科","财务科","营业部","制水车间","污水厂","安装公司","其他")#004WithMe.ListBox1#005.List=arr#006.ListStyle=1#007.MultiSelect=1#0

2、08EndWith#009EndSub代码解析：窗体的Initialize事件过程，在窗体初始化时对列表框进行设置。其中第5行代码使用List属性为列表框添加列表项，请参阅技巧Error!Referencesourcenotfound.。第6行代码将列表框的ListStyle属性设置为1（fmListStyleOption），显示用于多重选择列表的复选框，ListStyle属性规定列表框或组合框中的列表的外观，语法如下：object.ListStyle[=fmListStyle]参数object是必需的，一个有效的对象。参数fmList

3、Style是可选的，列表的可视风格，设置值如表格11所示。常量值说明fmListStylePlain0外观与常规的列表框相似，条目的背景为高亮fmListStyleOption1显示选项按钮，或显示用于多重选择列表的复选框（默认）。当用户选定组中的条目时，与该条目相关的选项按钮即被选中，而该组其他条目的选项按钮则被取消选择表格11fmListStyle设置值ListStyle属性可用来改变列表框或组合框的可视外观。通过一种不同于fmListStylePlain的设置，可以将任意控件的内容作为一组单独项目演示，每个项目都包含一个可视记

4、号用以表示它是否被选中。如果控件支持单一选择（MultiSelect属性被设置为mMultiSelectSingle），则可按下组中的一个按钮。如果控件支持多重选择，则可以按下组中两个或更多的按钮。第7行代码将MultiSelect属性设置为1（fmMultiSelectMulti），允许列表框进行多项选择，MultiSelect属性表示对象是否允许多项选择，语法如下：object.MultiSelect[=fmMultiSelect]参数object是必需的，一个有效的对象。参数fmMultiSelect是可选的，控件所用的选择方式，

5、设置值如表格12所示。常量值说明fmMultiSelectSingle0只可选择一个条目（默认）fmMultiSelectMulti1按空格键或单击鼠标以选定列表中一个条目或取消选定fmMultiSelectExtended2按Shift并单击鼠标，或按Shift的同时按一个方向键，将所选条目由前一项扩展到当前项。按Ctrl的同时单击鼠标可选定或取消选定表格12fmMultiSelect设置值经过以上设置，列表框显示时可以进行多项选择并且条目前都有一个选项按钮用以表示它是否被选中，如图11所示。图11允许多项选择的列表框如果将列

6、表框的ListStyle属性设置为0则与常规的列表框相似。如果将列表框的MultiSelect属性设置0则列表框只能进行单项选择，如图12所示。图12允许单项选择的列表框通过列表框的Selected属性值可以判断列表框中条目的选定状态，如下面的代码所示。#001PrivateSubCommandButton1_Click()#002DimiAsInteger#003DimsAsString#004Fori=0ToListBox1.ListCount-1#005IfListBox1.Selected(i)=TrueThen#006s=

7、s&ListBox1.List(i)&Chr(13)#007EndIf#008Next#009Ifs<>""Then#010MsgBox"你选择了："&Chr(13)&s#011Else#012MsgBox"请最少选择一个部门!"#013EndIf#014EndSub代码解析：按钮的单击过程，将列表框中选中的条目使用消息框显示出来。第4行到第8行代码使用For...Next语句循环遍历列表框所有条目，通过返回的Selected属性值判断列表框中条目的选定状态，如果处于选中状态，第6行代码将列表框选中条目的值赋给字符串变量s。Select

8、ed属性判断列表框中条目的选定状态，语法如下：object.Selected(index)[=Boolean]参数object是必需的，一个有效的对象。参数index是必需的，整数，取值范围是0到列表中的条