Differenze tra le versioni di "Collection"

Da Gambas-it.org - Wikipedia.
(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 ...)
 
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