如何动态修改列表框MultiSelect

fnsmydyang

MultiSelect 属性参阅应用于[url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acproMultiSelect.htm#example]示例[/url]特性
使用 MultiSelect 属性可以指定用户是否能够在[url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acproMultiSelect.htm#]窗体[/url]的[url=mkMSITStore: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

该属性只能在窗体“设计”视图中进行设计。

fnsmydyang

原来如此，不是可读写吗？{:soso_e100:}

fnsmydyang

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

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

tmtony

可读写是设计状态。 或你用代码 打开到设计状态，可设置
但运行状态不行。

fnsmydyang

谢谢！！！{:soso_e100:}

p51219

谢谢分享！