Metodo Item

Imposta o restituisce un elemento per una chiave specificata in un oggetto Dictionary. Per le raccolte, restituisce un elemento in base alla chiave specificata. Lettura/scrittura.

Sintassi

object.Item(key)[ = newitem]

Argomenti:

• Object: obbligatorio. Sempre il nome di una raccolta o di un oggetto Dictionary.

• Key: obbligatorio. Chiave associata all'elemento da recuperare o aggiungere.

• Newitem: facoltativo. Utilizzato solo per l'oggetto Dictionary , non valido per le raccolte. Se l'argomento viene specificato, newitem è il nuovo valore associato alla chiave specificata.

Note

Se la chiave non viene trovata quando si modifica un elemento, viene creata una nuova chiave in base all'argomento newitem specificato. Se l'argomento key non viene trovato quando viene eseguito il tentativo di restituire un elemento esistente, viene creata una nuova chiave e l'elemento corrispondente viene lasciato vuoto.

Nell'esempio seguente viene illustrato l'uso della proprietà Item.

Esempio 1

Function GetItem
    Dim d   ' Create some variables.
    Set d = CreateObject("Scripting.Dictionary")

    ' Add some keys and items.
    d.Add "a", "Athens"
    d.Add "b", "Belgrade"
    d.Add "c", "Cairo"

    ' Get the item for key "c".
    GetItem = d.Item("c")
End Function

' Usage
Dim result
result = GetItem()
' Output: Cairo

Esempio 2

Function SetExistingItem
    Dim d   ' Create some variables.
    Set d = CreateObject("Scripting.Dictionary")

    ' Add some keys and items.
    d.Add "x", "Xenon"
    d.Add "y", "Yttrium"
    d.Add "z", "Zirconium"

    ' Set a new item for key "y".
    d.Item("y") = "Yosemite"

    ' Get the item for key "y".
    SetExistingItem = d.Item("y")
End Function

' Usage
Dim result
result = SetExistingItem()
' Output: Yosemite

Esempio 3

Function AddNewItem
    Dim d   ' Create some variables.
    Set d = CreateObject("Scripting.Dictionary")

    ' Add some keys and items.
    d.Add "m", "Moscow"
    d.Add "n", "New York"
    d.Add "t", "Tokyo"

    ' Attempt to get an item for a non-existing key and set a new item.
    d.Item("p") = "Paris"

    ' Get the item for the newly added key "p".
    AddNewItem = d.Item("p")
End Function

' Usage
Dim result
result = AddNewItem()
' Output: Paris