Question

在我的一个表单中，我有一个ListBox（formListBox），其中包含一个字符串项列表。我想要做的是将列表框中的所有项目转移到一个集合中。到目前为止，我已经尝试了以下但没有成功：

            Dim newItems As New ListBox.ObjectCollection(formListBox)
            For Each item As String In newItems
                myArrayList.addNewItem(item)
            Next

执行此操作后，arraylist中的项目数量将返回0.我有一种感觉，我误解了＆＃34; ListBox.ObjectCollection（formListBox）＆＃34; part - 我从中得到的印象是它从ListBox返回一个集合，但我得到的结果不然。

Answer 1

试试这个

Dim arr1()
ReDim arr1(ListBox1.Items.Count - 1)
ListBox1.Items.CopyTo(arr1, 0)

OR

Dim ArrayItems() As String     

'//ADD ITEMS INTO ARRAY 
'//FIRST FIND HOW MANY ITEMS IN LISTBOX AND REDIM THE ARRAT FOR SIZE 
ReDim ArrayItems(List1.ListCount) 

'//NOW ADD ITEMS 
For i = 1 To List1.ListCount 
   List1.ListIndex = i - 1 
   ArrayItems(i) = List1.Text 
Next i

OR

使用LINQ

(From item As Object In yourListBox.ObjectCollection Select item.ToString()).ToArray()

如何将项目从ListBox传输到集合VB.NET

1 个答案: