Visual Basic .net 中的数组列表答案

【问题标题】：Arraylist in Visual Basic .netVisual Basic .net 中的数组列表
【发布时间】：2009-09-21 16:56:26
【问题描述】：

我能否获得一个示例，说明如何在 Visual Basic .NET 中制作 Vector 或 ArrayList 之类的东西？

【问题讨论】：

【解决方案1】：

Dim list As New ArrayList

或（等效）：

Dim list As ArrayList = New ArrayList

如果你想要一个通用的 List（非常类似于 ArrayList）：

Dim list As New List(Of String)

另请参阅 ArrayList 和 List 文档。

【讨论】：

+1 用于提及 List(Of T) - 这是比 ArrayList 更好的选择。
ArrayList 将被贬低，据我了解，在 Silverlight 等某些平台上什至不可用。

【解决方案2】：

试试下面的

Dim list As New ArrayList()
list.Add("hello")
list.Add("world")
For Each cur As String in list
  Console.WriteLine(cur)
Next

【讨论】：

【解决方案3】：

Module Module1

    Sub Main()
        Dim al As New ArrayList()
        al.Add("1")
        al.Add("2")
        al.Add("3")
    End Sub

End Module

【讨论】：

【解决方案4】：

如果您碰巧使用的是 VB10，您应该能够使用以下语法。

Dim list As New List(Of Integer) From { 1, 2, 3, 4, 5 }

【讨论】：

【解决方案5】：

添加价值

Dim list As New ArrayList
list.Add("One")
list.Add("Two")
list.Add("Three")

参数示例

Module Module1

    Sub Main()
    ' Create an ArrayList and add two elements to it.
    Dim list As New ArrayList
    list.Add(5)
    list.Add(7)
    ' Use ArrayList as an argument to the method.
    Example(list)
    End Sub

    ''' <summary>
    ''' Receives ArrayList as argument.
    ''' </summary>
    Private Sub Example(ByVal list As ArrayList)
    Dim num As Integer
    For Each num In list
        Console.WriteLine(num)
    Next
    End Sub

End Module

输出

5 7

添加范围

Module Module1

    Sub Main()
    ' Create an ArrayList and add two elements.
    Dim list1 As New ArrayList
    list1.Add(5)
    list1.Add(7)
    ' Create a separate ArrayList.
    Dim list2 As New ArrayList
    list2.Add(10)
    list2.Add(13)
    ' Add this ArrayList to the other one.
    list1.AddRange(list2)
    ' Loop over the elements.
    Dim num As Integer
    For Each num In list1
        Console.WriteLine(num)
    Next
    End Sub

End Module

输出

5 7 10 13

计数，清除

Module Module1

    Sub Main()
    ' Add two elements to the ArrayList.
    Dim list As New ArrayList
    list.Add(9)
    list.Add(10)
    ' Write the Count.
    Console.WriteLine(list.Count)
    ' Clear the ArrayList.
    list.Clear()
    ' Write the Count again.
    Console.WriteLine(list.Count)
    End Sub

End Module

输出

2 0

添加、删除元素

Module Module1

    Sub Main()
    ' Create an ArrayList and add three strings to it.
    Dim list As New ArrayList
    list.Add("Dot")
    list.Add("Net")
    list.Add("Perls")
    ' Remove a string.
    list.RemoveAt(1)
    ' Insert a string.
    list.Insert(0, "Carrot")
    ' Remove a range.
    list.RemoveRange(0, 2)
    ' Display.
    Dim str As String
    For Each str In list
        Console.WriteLine(str)
    Next
    End Sub

End Module

输出

Perls

TryCast

Module Module1

    Sub Main()
    ' Create a new ArrayList.
    Dim list As New ArrayList
    list.Add("man")
    list.Add("woman")
    list.Add("plant")
    ' Loop over the ArrayList with a For loop.
    Dim i As Integer
    For i = 0 To list.Count - 1
        ' Cast to a string.
        Dim str As String = TryCast(list.Item(i), String)
        Console.WriteLine(str)
    Next i
    End Sub

End Module

输出

男人女士植物

获取范围

Module Module1

    Sub Main()
    ' Create new ArrayList.
    Dim list1 As New ArrayList
    list1.Add("fish")
    list1.Add("amphibian")
    list1.Add("bird")
    list1.Add("plant")
    ' Create a new ArrayList and fill it with the range from the first one.
    Dim list2 As New ArrayList
    list2 = list1.GetRange(2, 2)
    ' Loop over the elements.
    Dim str As String
    For Each str In list2
        Console.WriteLine(str)
    Next
    End Sub

End Module

输出

鸟植物

【讨论】：

【解决方案6】：

你可以用这个：

Dim a As New ArrayList()
a.Add("Item1")
a.Add("Item2")
a.Add("Item3")

【讨论】：