允许多项选择的列表框

1、技巧1 允许多项选择的列表框一般情况下在显示的列表框中用户只能选择一个列表项，而经过简单的设置，列表框条目前可以显示选项按钮，允许进行多项选择，如下面的代码所示。#001 Private Sub UserForm_Initialize()#002 Dim arr As Variant#003 arr = Array("经理室", "办公室", "生技科", "财务科", "营业部", "制水车间", "污水厂", "安装公司", &qu

2、ot;其他")#004 With Me.ListBox1#005 .List = arr#006 .ListStyle = 1#007 .MultiSelect = 1#008 End With#009 End Sub代码解析：窗体的Initialize事件过程，在窗体初始化时对列表框进行设置。其中第5行代码使用List属性为列表框添加列表项，请参阅技巧Error! Reference source not found.。第6行代码将列表框的ListStyle属性设置为1fmListStyleOption，显示用于多重选择列表的复选框，ListStyle属性规定列表框或组合框中的列表

3、的外观，语法如下：object.ListStyle = fmListStyle参数object是必需的，一个有效的对象。参数fmListStyle是可选的，列表的可视风格，设置值如表格 1121所示。常量值说明fmListStylePlain0外观与常规的列表框相似，条目的背景为高亮fmListStyleOption1显示选项按钮，或显示用于多重选择列表的复选框默认。当用户选定组中的条目时，与该条目相关的选项按钮即被选中，而该组其他条目的选项按钮则被取消选择表格 11fmListStyle设置值ListStyle 属性可用来改变列表框或组合框的可视外观。通过一种不同于 fmListStyleP

4、lain 的设置，可以将任意控件的内容作为一组单独项目演示，每个项目都包含一个可视记号用以表示它是否被选中。如果控件支持单一选择MultiSelect属性被设置为mMultiSelectSingle，则可按下组中的一个按钮。如果控件支持多重选择，则可以按下组中两个或更多的按钮。第7行代码将MultiSelect属性设置为1fmMultiSelectMulti，允许列表框进行多项选择，MultiSelect属性表示对象是否允许多项选择，语法如下：object.MultiSelect = fmMultiSelect参数object是必需的，一个有效的对象。参数fmMultiSelect是可选的，控

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

6、属性设置为0则与常规的列表框相似。如果将列表框的MultiSelect属性设置0则列表框只能进行单项选择，如图 1122所示。图 12允许单项选择的列表框通过列表框的Selected属性值可以判断列表框中条目的选定状态，如下面的代码所示。#001 Private Sub CommandButton1_Click()#002 Dim i As Integer#003 Dim s As String#004 For i = 0 To ListBox1.ListCount - 1#005 If ListBox1.Selected(i) = True Then#006 s = s & List

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