Visual Basic中的Arraylist .net

Question

我可以得到一个如何在Visual Basic .NET中制作Vector或ArrayList的例子吗？

Answer 1

Dim list As New ArrayList 

或（等效）：

Dim list As ArrayList = New ArrayList 

如果你想有一个泛型列表（非常相似，ArrayList中）：

Dim list As New List(Of String) 

另请参阅ArrayList和List文档。

Answer 2

请尝试以下

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

Answer 3

Module Module1 

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

End Module 

Answer 4

如果您碰巧使用VB10，应该可以使用以下语法。

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

Answer 5

您可以使用此：

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

Answer 6

添加值

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 

输出

的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 

输出

计数，清除

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 

输出

添加，删除元素

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 

输出

鸟 工厂