Liste

Module Module1
    Sub Stampa(l As List(Of String))
        Console.WriteLine("Elementi attualmente in lista")
        Dim pos = 0
        For Each i In l
            Console.WriteLine("{0}{2}{1}", pos, i, vbTab)
            pos += 1
        Next
    End Sub
    Sub Main_()
        ' creazione di una lista con inizializzatore "from"
        Dim nomi As New List(Of String)(20) From {"paperino", "paperone", "topolino", "archimede", "gastone"}
        Console.WriteLine("Capienza attuale: {0}", nomi.Capacity)
        Console.WriteLine("Elementi presenti: {0}", nomi.Count)
        nomi.Add("pico") ' aggiunge alla lista
        nomi.Add("paperina")
        nomi.Add("pippo")
        Console.WriteLine("Capienza attuale: {0}", nomi.Capacity)
        Console.WriteLine("Elementi presenti: {0}", nomi.Count)
        nomi.Add("pluto")
        Console.WriteLine("Capienza attuale: {0}", nomi.Capacity)
        Console.WriteLine("Elementi presenti: {0}", nomi.Count)
        Stampa(nomi)
        nomi.Remove("paperina")
        Stampa(nomi)
        Console.WriteLine("Capienza attuale: {0}", nomi.Capacity)
        Console.WriteLine("Elementi presenti: {0}", nomi.Count)
        nomi.RemoveAt(6)
        Stampa(nomi)
        nomi.RemoveRange(3, 2)
        Stampa(nomi)
        nomi.Insert(4, "paperina")
        Stampa(nomi)
        nomi.InsertRange(3, {"bassotti", "qui", "quo", "qua"})
        Stampa(nomi)
        If nomi.Contains("pippo") Then Console.WriteLine("Pippo è in lista")
        Console.WriteLine("Posizione di <pluto> all'interno della lista: {0}", nomi.IndexOf("pluto"))
    End Sub
    Class Memo
        Public Property Valore As Integer
        Public Property Nome As String

        Public Overrides Function ToString() As String
            Return Nome & ".Valore = " & Valore
        End Function

        Public Overrides Function Equals(obj As Object) As Boolean
            If TypeOf obj Is Memo Then
                Dim tmp As Memo = obj
                Return tmp.Valore = Valore
            End If
            Return False
        End Function
    End Class

    Sub Stampa(l As List(Of Memo))
        Console.WriteLine("Elementi attualmente in lista:")
        Dim pos = 0
        For Each i In l
            Console.WriteLine("{0}{2}{1}", pos, i, vbTab)
            pos += 1
        Next
    End Sub
    Sub Main()
        Dim tre As New Memo With {.Valore = 3, .Nome = "tre"}
        Dim lista As New List(Of Memo) From {
            New Memo With {.Valore = 1},
            New Memo With {.Valore = 2},
            New Memo With {.Valore = 3, .Nome = "Terzo elemento della lista"},
            New Memo With {.Valore = 4}
            }
        Stampa(lista)
        If lista.Contains(tre) Then Console.WriteLine("1. La lista contiene il valore cercato (tre)")
        Dim ricerca As New Memo With {.Valore = 3, .Nome = "ricerca"}
        If lista.Contains(ricerca) Then Console.WriteLine("2. La lista contiene il valore cercato (ricerca)")
    End Sub
End Module