如果MultiSelect属性为“无”,则仅是列表框的值。
Debug.Print Me.List16
Run Code Online (Sandbox Code Playgroud)
应该足够了。
如果要多列的值
Debug.Print Me.List16.Column(0) & ", " & Me.List16.Column(1)
Run Code Online (Sandbox Code Playgroud)
如果MultiSelect属性是简单或复杂的,则需要遍历ItemsSelected集合。
Dim varItm As Variant
For Each varItm In me.ListBx.ItemsSelected
Debug.Print me.ListBox.ItemData(varItm)
Next varItm
Run Code Online (Sandbox Code Playgroud)
以上是空运代码。
| 归档时间: |
|
| 查看次数: |
1552 次 |
| 最近记录: |