Differenze tra le versioni di "Collection"
Da Gambas-it.org - Wikipedia.
| Riga 31: | Riga 31: | ||
| − | ====Richiamare un campo di una Collection in un'altra Collection | + | ====Richiamare un campo di una Collection in un'altra Collection==== |
''<Font Color= #006400>' Gambas class file''</font> | ''<Font Color= #006400>' Gambas class file''</font> | ||
Versione delle 10:14, 17 gen 2012
' 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
