使用访问 VBA 将列表框项放入数组
声明：本页面是StackOverFlow热门问题的中英对照翻译，遵循CC BY-SA 4.0协议，如果您需要使用它，必须同样遵循CC BY-SA许可，注明原文地址和作者信息，同时你必须将它归于原作者（不是我）：StackOverFlow
原文地址: http://stackoverflow.com/questions/23278420/
Warning: these are provided under cc-by-sa 4.0 license. You are free to use/share it, But you must attribute it to the original authors (not me):
StackOverFlow
提示：将鼠标放在中文语句上可以显示对应的英文。显示中英文
时间：2020-09-12 02:52:54 来源:igfitidea点击:
Getting listbox items to array using access VBA
提问by vuyy1182
I have a listbox in access form. it contains 18 items . How do i store those itmes into array using access vba.
我有一个访问表单的列表框。它包含 18 个项目。我如何使用访问 vba 将这些项目存储到数组中。
回答by KevenDenen
The following will pull the contents of a listbox into an array and spit back out the contents.
下面将把列表框的内容拉入一个数组并吐出内容。
Dim Size As Integer
Size = Me.List0.ListCount - 1
ReDim ListBoxContents(0 To Size) As String
Dim i As Integer
For i = 0 To Size
ListBoxContents(i) = Me.List0.ItemData(i)
Next i
For i = 0 To Size
MsgBox ListBoxContents(i)
Next i
