Visualizza wikitesto di Richiamare un'intera Collection nel campo di un'altra Collection

E' possibile contenere e richiamare - ossia ''inserire'' - una ''Collection'' in un'altra ''Collection'', almeno attraverso due modalità.

===Mediante il Metodo ".Insert()" della Classe ''Collection''===
Mostriamo un esempio pratico con due ''Collection'':
 Private <FONT color=blue>collezione_2</font> As New Collection
 
 
 Public Sub Form_Open()
 
  Dim <FONT color=darkorange>collezione_1</font> As New Collection
  Dim campo1 As Byte
  Dim campo2 As Integer
  
  campo1 = 144
  campo2 = 100000
 
  With <FONT color=darkorange>collezione_1</font>
    .Add(campo1, "chiave1")
    .Add(campo2, "chiave2")
  End With
  
  With <FONT color=blue>collezione_2</font>
    .Add("testo qualsiasi", "chiave_testo")
 <FONT color=gray>' ''Aggiunge l'intera "Collection" 'collezione_1' alla "Collection" 'collezione_2':''</font>
    <FONT color=red>.Insert</font>(<FONT color=darkorange>collezione_1</font>)
  End With
 
 End
 
 
 Public Sub Button1_Click()   <FONT color=gray>' ''Effettua le verifiche nella console''</font>
 
  Print <FONT color=blue>collezione_2</font>["chiave_testo"]
  Print <FONT color=blue>collezione_2</font>["chiave1"]
  Print <FONT color=blue>collezione_2</font>["chiave2"]
 
 End


===Con riferimento di una ''Collection'' nel campo di un'altra ''Collection''===
Nell'esempio, che segue, abbiamo due ''Collection''. 
<BR>In un campo della seconda ''Collection'' sarà inserito un riferimento alla prima ''Collection'':
 Private <FONT color=blue>collezione_2</font> As New Collection
 
 
 Public Sub Form_Open()
 
  Dim <FONT color=darkorange>collezione_1</font> As New Collection
  Dim campo1 As Byte
  Dim campo2 As Integer
  
  campo1 = 144
  campo2 = 100000
 
  With <FONT color=darkorange>collezione_1</font>
    .Add(campo1, "chiave1")
    .Add(campo2, "chiave2")
  End With
  
  With <FONT color=blue>collezione_2</font>
    .Add("testo qualsiasi", "chiave_testo")
 <FONT color=gray>' ''Aggiunge l'intera Collection 'collezione_1':''</font>
    .Add(<FONT color=darkorange>collezione_1</font>, "chiave_campo_collezione_1")
  End With
 
 End
 
 
 Public Sub Button1_Click()   <FONT color=gray>' ''Effettua le verifiche nella console''</font>
 
  Print <FONT color=blue>collezione_2</font>["chiave_testo"]
  
  Print <FONT color=blue>collezione_2</font>["chiave_campo_collezione_1"]["chiave1"]   <FONT color=gray>' ''Scrive il contenuto del 1° campo della Collection 'collezione_1'''</font>
  Print <FONT color=blue>collezione_2</font>["chiave_campo_collezione_1"]["chiave2"]   <FONT color=gray>' ''Scrive il contenuto del 2° campo della Collection 'collezione_1'''</font>
 
 End