Collection

 ' Gambas class file


miaCollezione As New Collection

Public Sub Button1_Click()

Dim primoValore As Byte
Dim secondoValore As Integer

 primoValore = 64
 secondoValore = 4000

   With miaCollezione
     .add(primoValore, "primoCampo")
     .add(secondoValore, "secondoCampo")
     .add("terzoValore", "terzoCampo")
   End With

End


Public Sub Button1_Click()

 Print miaCollezione["primoCampo"]   ' scrive in console : 64
 Print miaCollezione["secondoCampo"]   ' scrive in console: 4000
 Print miaCollezione["terzoCampo"]   ' scrive in console: terzoValore

End

====Richiamare un campo di una Collection in un'altra Collection:

 ' Gambas class file


auto As New Collection
bici As New Collection


Public Sub Form_Open()
 Dim tipo, ruota As Byte
 Dim ts, sellino As Integer

 tipo = InputBox("Inserisci dato byte:")
 ruota = 144
 ts = 4000
 sellino = 10000

  With bici
     .add(ruota, "ruota")
     .add(sellino, "sellino")     
  End With


   With auto
     .add(tipo, "type")
     .add(ts, "motore")
     .add(123, “numeri”)
     .add("coda", "queue")
     .add(bici["ruota"], "bicicletta")
   End With

End


Public Sub Button1_Click()

 Print auto["type"]   ' scrive in console il valore immesso con l'inputbox
 Print auto["motore"]   ' scrive in console: 4000
 Print auto["numeri”]   ' scrive in console: 123
 Print auto["queue"]   ' scrive in console: coda
 Print auto["q" & "ueue"]   ' scrive in console: coda
 Print auto["bicicletta"]   ' scrive in console: 144 (campo/valore dell'altra Collction “bicicletta”)

End