Office中国论坛/Access中国论坛

标题: 如何动态修改列表框MultiSelect [打印本页]

作者: fnsmydyang 时间: 2015-6-19 11:17
标题: 如何动态修改列表框MultiSelect
MultiSelect 属性参阅应用于[url=mk

MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acproMultiSelect.htm#example]示例[/url]特性
使用 MultiSelect 属性可以指定用户是否能够在[url=mk

MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acproMultiSelect.htm#]窗体[/url]的[url=mk

MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acproMultiSelect.htm#]列表框[/url]中使用多重选择以及如何进行多重选择。Byte 型，可读写。

expression.MultiSelect

expression 必需。返回“应用于”列表中的一个对象的表达式。
说明MultiSelect 属性使用以下设置：

设置	Visual Basic	说明
无	0	（默认值）不允许多重选择。
简单	1	通过单击鼠标或按空格键，可允许或禁止多重选择。
展开的	2	可以按住 Shift，然后单击各项目以进行多重选择；也可以按住 Shift，从前面的选择项按箭头键将选择范围扩展至当前项；也可以通过拖动鼠标进行选择；而按住 Ctrl 并单击项目可以选择或取消选择该项目。

注释  您可以使用列表框的属性表、宏或 Visual Basic 来设置 MultiSelect 属性。
该属性只能在窗体“设计”视图中进行设计。
使用 ListIndex 属性可以返回所选项目的索引编号。当 MultiSelect 属性设为“展开的”或“简单”时，可以使用列表框的 Selected 属性或 ItemsSelected 集合来确定所选的项目。此外，当 MultiSelect 属性设为“展开的”或“简单”时，列表框控件的值将始终为 Null。
如果 MultiSelect 属性设为“展开的”，重新查询列表框将会清除用户的所有选择。
示例若要返回“订单输入”窗体上“国家/地区”列表框的 MultiSelect 属性值，可以使用下面的示例：
Dim b As Byte
b = Forms("Order Entry").Controls("Country").MultiSelect

若要设置 MultiSelect 属性，可以使用下面的示例：
Forms("Order Entry").Controls("Country").MultiSelect = 2 ' Extended.
运行代码出错：
Private Sub Frame12_AfterUpdate()
'On Error Resume Next
Select Case Me.Frame12.Value
   Case 1
      Forms("零配件进仓包装标签").Controls("List9").MultiSelect = 0
   Case 2
      Forms("零配件进仓包装标签").Controls("List9").MultiSelect = 1
End Select

End Sub
为什么会出错，求解啊！各位老师！

作者: tmtony 时间: 2015-6-19 11:19
该属性只能在窗体“设计”视图中进行设计。

作者: fnsmydyang 时间: 2015-6-19 11:28
原来如此，不是可读写吗？{:soso_e100:}

作者: fnsmydyang 时间: 2015-6-19 11:29

tmtony 发表于 2015-6-19 11:19
该属性只能在窗体“设计”视图中进行设计。

原来如此，不是可读写吗？

作者: tmtony 时间: 2015-6-19 19:23
可读写是设计状态。或你用代码打开到设计状态，可设置
但运行状态不行。

作者: fnsmydyang 时间: 2015-6-24 07:47
谢谢！！！{:soso_e100:}

作者: p51219 时间: 2016-7-10 10:03
谢谢分享！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)