Collection
Vai alla navigazione
Vai alla ricerca
' 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