Collection: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
(Nuova pagina: ''<Font Color= #006400>' Gambas class file''</font> miaCollezione As New Collection '''Public''' Sub Button1_Click() Dim primoValore As Byte Dim secondoValore As Integer ...) |
Nessun oggetto della modifica |
||
| Riga 11: | Riga 11: | ||
primoValore = 64 | primoValore = 64 | ||
secondoValore = 4000 | secondoValore = 4000 | ||
With miaCollezione | With miaCollezione | ||
.add(primoValore, "primoCampo") | .add(primoValore, "primoCampo") | ||
Versione delle 11:07, 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: 4000
Print miaCollezione["terzoCampo"] ' scrive: terzoValore
End