Collection

Da Gambas-it.org - Wikipedia.
Versione del 17 gen 2012 alle 11:07 di Vuott (Discussione | contributi) (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 ...)

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)
 ' 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