Visual Basic .net中的Arraylist

Question

我可以给你一个在Visual Basic .NET中创建类似Vector或ArrayList的示例吗？

- crazybmanp

Answer 1

Dim list As New ArrayList

或（等价地）：

Dim list As ArrayList = New ArrayList

如果您想要一个通用的列表（非常类似于ArrayList）：

Dim list As New List(Of String)

此外，还请参阅ArrayList和List文档。

- cdmckay

---

提到 List(Of T) 加 1，这比 ArrayList 更好。 - Reed Copsey

ArrayList 将被弃用，并且据我所知，在某些平台上，如 Silverlight 中甚至不可用。 - Jonathan Allen

Answer 2

请尝试以下方法

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

- JaredPar

Answer 3

添加数值。

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

Parameter example

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

AddRange

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

输出

珍珠

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

输出

男人 女人 植物

GetRange

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

输出

鸟 植物

- user2029909

Answer 4

Module Module1

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

End Module

- Chris McCall

Answer 5

如果您正在使用VB10，您应该能够使用以下语法。

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

- Brian Gideon

Answer 6

你可以使用这个：

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

- Saurabh Sharma