For Each AvlTree (gb.data)
Dim hAvlTree
As AvlTree
Dim aVariant
As Variant
For Each aVariant
In hAvlTree
...
Next
Visita ogni elemento dell'albero in ordine, ovvero dalla chiave più piccola alla più grande. La proprietà
Key dell'albero viene impostata in base al valore nell'enumeratore.
Esempio
|
Codice
|
Può produrre
|
|---|
|
Dim v As Variant
Print "Key", "Value"
For Each v In hTree
Print hTree.Key, v
Next
|
Key Value
a 1
b 11
c 5
|