Procedura: creare un insieme di oggetti (Visual Basic)

Articolo
08/11/2011

Come per qualsiasi altro oggetto, è necessario prima dichiarare una variabile che contenga l'oggetto, quindi creare l'oggetto Collection da assegnare alla variabile.

Per un oggetto Collection è possibile utilizzare la classe Collection o una classe di insiemi di .NET Framework. In particolare, è possibile creare un insieme generico utilizzando una delle classi nello spazio dei nomi System.Collections.Generic. Un insieme generico è utile quando ogni elemento dell'insieme presenta lo stesso tipo di dati. Negli insiemi generici è imposta la tipizzazione forte, che consente di aggiungere soltanto i tipi di dati desiderati. Per ulteriori informazioni, vedere Procedura: definire insiemi indipendenti dai tipi (Visual Basic).

Una volta creato l'oggetto Collection, è possibile aggiungere e rimuovere elementi nonché accedere agli elementi dell'insieme.

Di seguito vengono forniti due esempi relativi alla creazione di insiemi. Ciascun insieme contiene elementi String e associa una chiave String a ciascun elemento. Nelle prime due procedure viene creato un insieme utilizzando la classe di insiemi di Visual Basic. Nelle ultime due procedure viene creato un insieme utilizzando una classe di insiemi generici di .NET Framework.

Per creare un insieme utilizzando la classe di insiemi di Visual Basic

Dichiarare e creare una variabile Collection di Visual Basic, come illustrato nell'esempio seguente.
```
Dim sampleVisualBasicColl As New Microsoft.VisualBasic.Collection()
```
L'insieme in sampleVisualBasicColl può accettare elementi di un qualsiasi tipo di dati.
Utilizzare il metodo Add per aggiungere elementi all'insieme. Nell'esempio riportato di seguito vengono creati quattro elementi String, che vengono aggiunti all'insieme. Viene quindi creato un valore String univoco come chiave per ogni nuovo elemento e tale valore viene passato al metodo Add.
```
Dim item1, item2, item3, item4 As String
item1 = "Items"
item2 = "In"
item3 = "A"
item4 = "Collection"
sampleVisualBasicColl.Add(item1, "firstkey")
sampleVisualBasicColl.Add(item2, "secondkey")
sampleVisualBasicColl.Add(item3, "thirdkey")
sampleVisualBasicColl.Add(item4, "fourthkey")
```
L'argomento Key è facoltativo in un insieme di Visual Basic.
Per rimuovere un elemento dall'insieme, è possibile utilizzare il metodo Remove, identificando l'elemento in base all'indice di posizione o alla chiave facoltativa. Questa condizione è illustrata nell'esempio che segue.
```
' Remove the first element of the Visual Basic collection.
sampleVisualBasicColl.Remove(1)
' Remove the element with the key "secondkey".
sampleVisualBasicColl.Remove("secondkey")
```
Tenere presente che quando un elemento viene rimosso da un Collection di Visual Basic, i valori di indice vengono rinumerati da 1 al valore della proprietà Count.

Per utilizzare For Each...Next per elaborare gli elementi dell'insieme di Visual Basic

Dichiarare una variabile del tipo archiviato nell'insieme. Per l'esempio precedente, dichiarare una variabile di tipo String, come illustrato nell'esempio seguente.
```
' Insert code from the preceding example.
Dim aString As String
```
Utilizzare un'Istruzione For Each...Next (Visual Basic) per esaminare ciascun elemento dell'insieme. Nell'esempio riportato di seguito viene eseguita la ricerca di una particolare stringa. Se la ricerca ha esito positivo, la stringa viene visualizzata.
```
For Each aString in sampleVisualBasicColl
    If aString = "Collection" Then
        MsgBox(aString)
    End If
Next aString
```

Per creare un insieme utilizzando una classe di insiemi generici

Dichiarare e creare una variabile System.Collections.Generic.Dictionary<TKey, TValue> di .NET Framework, come illustrato nel seguente esempio.
```
Dim sampleGenericColl As New System.Collections.Generic.Dictionary(Of String, String)
```
La variabile sampleGenericColl contiene un insieme indipendente dai tipi che accetta soltanto elementi e chiavi di tipo String.
Utilizzare il metodo Dictionary<TKey, TValue>.Add per aggiungere elementi all'insieme. Nell'esempio riportato di seguito vengono creati quattro elementi String, che vengono aggiunti all'insieme. Viene quindi creato un valore String univoco come chiave per ogni nuovo elemento e tale valore viene passato al metodo Add.
```
Dim item1, item2, item3, item4 As String
item1 = "Items"
item2 = "In"
item3 = "A"
item4 = "Collection"
sampleGenericColl.Add("firstkey", item1)
sampleGenericColl.Add("secondkey", item2)
sampleGenericColl.Add("thirdkey", item3)
sampleGenericColl.Add("fourthkey", item4)
```
In questo insieme generico l'argomento Key è obbligatorio.
Per rimuovere un elemento dall'insieme, utilizzare il metodo IDictionary<TKey, TValue>.Remove. È necessario specificare la chiave per identificare l'elemento da rimuovere. Questa condizione è illustrata nell'esempio che segue.
```
If Not sampleGenericColl.Remove("thirdkey")
    ' Insert code to handle "thirdkey" not found in collection.
End If
```
È possibile utilizzare un'istruzione For Each...Next per scorrere ed elaborare gli elementi di un insieme, come illustrato nella seguente procedura.

Per utilizzare For Each...Next per elaborare gli elementi dell'insieme generico

Dichiarare una variabile del tipo archiviato nell'insieme. Per l'esempio precedente, dichiarare una variabile di tipo String, come illustrato nell'esempio seguente.
```
' Insert code from the preceding example.
Dim aPair As KeyValuePair(Of String, String)
```
Utilizzare un'Istruzione For Each...Next (Visual Basic) per esaminare ciascun elemento dell'insieme. Nell'esempio riportato di seguito viene eseguita la ricerca di una particolare stringa. Se la ricerca ha esito positivo, la stringa viene visualizzata.
```
For Each aPair In sampleGenericColl
    If aPair.Value = "Items" Then
        MsgBox(aPair.Key & " -- " & aPair.Value)
    End If
Next aPair
```