Arraylist dans Visual Basic .net

Question

Puis-je obtenir un exemple de comment faire quelque chose comme un vecteur ou un ArrayList dans Visual Basic .NET?

Answer 1

Dim list As New ArrayList 

ou (équivalente):

Dim list As ArrayList = New ArrayList 

Si vous voulez une liste générique (très similaire à ArrayList):

Dim list As New List(Of String) 

Voir également la documentation ArrayList et List.

Answer 2

Effectuez les opérations suivantes

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

Si vous utilisez VB10, vous devriez pouvoir utiliser la syntaxe suivante.

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

Answer 5

Vous pouvez utiliser ceci:

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

Answer 6

Ajouter des valeurs

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

exemple des paramètres

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 

sortie

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 

sortie

Count, Ciel

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 

sortie

ajouter, supprimer des éléments

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 

sortie

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 

Sortie

homme femme plante

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 

Sortie

oiseau plante